Cross Reference: 20010426.f
xref
: /
openbsd-current
/
gnu
/
usr.bin
/
gcc
/
gcc
/
testsuite
/
g77.f-torture
/
compile
/
20010426.f
Home
History
Annotate
Line#
Navigate
Raw
Download
only in
/openbsd-current/gnu/usr.bin/gcc/gcc/testsuite/g77.f-torture/compile/
1
function
f(c)
2
implicit
none
3
real
*
8
c, f
4
f =
sqrt
(c)
5
return
6
end
7