File: answer.f90

package info (click to toggle)
golang-1.15 1.15.15-1~deb11u4
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, bullseye-backports
  • size: 120,492 kB
  • sloc: asm: 104,640; ansic: 6,360; sh: 1,677; perl: 1,095; javascript: 718; xml: 623; python: 361; makefile: 111; cpp: 39; f90: 8; awk: 7; objc: 4
file content (9 lines) | stat: -rw-r--r-- 294 bytes parent folder | download | duplicates (40) 
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