src/cmd/cgo/internal/testfortran/testdata/testprog/answer.f90

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