From aaff1ad73c50b46e7cd2558d6c1b14f84000545f Mon Sep 17 00:00:00 2001 From: ian Date: Tue, 27 Jun 2017 04:21:40 +0000 Subject: libgo: add misc/cgo files 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 git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@249674 138bc75d-0d04-0410-961f-82ee72b054a4 --- libgo/misc/cgo/fortran/answer.f90 | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 libgo/misc/cgo/fortran/answer.f90 (limited to 'libgo/misc/cgo/fortran/answer.f90') diff --git a/libgo/misc/cgo/fortran/answer.f90 b/libgo/misc/cgo/fortran/answer.f90 new file mode 100644 index 00000000000..b3717ee27a6 --- /dev/null +++ b/libgo/misc/cgo/fortran/answer.f90 @@ -0,0 +1,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 -- cgit v1.2.1