summaryrefslogtreecommitdiffstats
path: root/misc/cgo/fortran/answer.f90
blob: b3717ee27a67cbf382215128bf4954e4d5193cc9 (plain)
1
2
3
4
5
6
7
8
9
! 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