Sign in
llvm
/
llvm-archive
/
67ca873b99b7e631820d261833301c41ad8006b1
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.dg
/
g77
/
980427-0.f
blob: c5c3ade00a9cd8fc1e994caf26db0728fd223a87 [
file
] [
log
] [
blame
]
c
{
dg
-
do
compile
}
c
../../
egcs
/
gcc
/
f
/
com
.
c
:
938
:
failed assertion
`TREE_CODE (TREE_TYPE (e)) == REAL_TYPE'
c Fixed by 28-04-1998 global.c (ffeglobal_ref_progunit_) change.
external b
call y(b)
end
subroutine x
a = b()
end