summaryrefslogtreecommitdiff
path: root/src/cmd/cgo/internal/testfortran/testdata/testprog/fortran.go
blob: d8004ceb6de9a6ada02f9ea6bbd4bc4af846b107 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
// 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.

package main

// int the_answer();
import "C"
import "os"

func TheAnswer() int {
	return int(C.the_answer())
}

func main() {
	if a := TheAnswer(); a != 42 {
		println("Unexpected result for The Answer. Got:", a, " Want: 42")
		os.Exit(1)
	}
	println("ok")
}