Sign in
gnu
/
gcc
/
2eaa0cc45e8eae0fc4a440d28c602964bcb1014d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr95614_4.f90
blob: 48f9b9b6825ddb8af5b80b6245c08222e0326b36 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
function
f
()
f
=
1.0
end
function
program pr95614
common
/
c1
/
f
end
program