Sign in
llvm
/
llvm-archive
/
2d92d8f3eda4630e3e80be62081ca797828d58e1
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
g77
/
19990218-0.f
blob: 631e74195eadc997c7fd20222e25d5899ec4296a [
file
] [
log
] [
blame
]
c
{
dg
-
do
compile
}
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