936615752a
Copy all the misc/cgo files from the gc toolchain into libgo/misc.
These will be used for testing purposes by later changes to the
gotools directory.
Reviewed-on: https://go-review.googlesource.com/46721
From-SVN: r249674
10 lines
294 B
Fortran
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
|