Sign in
gnu
/
gcc
/
1126a05deadda1ef363e0f78fd802c8ee0ea5b56
/
.
/
gcc
/
testsuite
/
g77.f-torture
/
compile
/
19990218-0.f
blob: 3e34117ec693d058569bb9b98568a8f720191d0f [
file
] [
log
] [
blame
]
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
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