github.com/guyezi/gofrontend@v0.0.0-20200228202240-7a62a49e62c0/libgo/misc/cgo/fortran/answer.f90 (about)

     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