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.
5 function the_answer() result(j
) bind(C
)
6 use iso_c_binding
, only
: c_int
7 integer(c_int
) :: j
! output
9 end function the_answer