! Copyright 2016 The Go Authors. All rights reserved. ! Use of this source code is governed by a BSD-style ! license that can be found in the LICENSE file. function the_answer() result(j) bind(C) use iso_c_binding, only: c_int integer(c_int) :: j ! output j = 42 end function the_answer