Sign in
gnu
/
gcc
/
418f81eefb6540582e4818225404d4a647ad67eb
/
.
/
gcc
/
testsuite
/
g77.f-torture
/
noncompile
/
19990218-1.f
blob: 25b7c5b2b52c335a3ab99877fafba181dda5d0fd [
file
] [
log
] [
blame
]
double
precision
function
fun
(
a
,
b
)
double
precision a
,
b
print
*,
'in sub: a,b='
,
a
,
b
fun
=
a
*
b
print
*,
'in sub: fun='
,
fun
return
end
program test
double
precision a
,
b
,
c
data a
,
b
/
1.0d
-
46
,
1.0d0
/
c
=
fun
(
a
,
b
)
print
*,
'in main: fun='
,
c
end