- ! 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
|