Retro68/gcc/libgo/misc/cgo/fortran/answer.f90
2018-12-28 16:30:48 +01:00

10 lines
294 B
Fortran

! 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