Sign in
gnu
/
gcc
/
418f81eefb6540582e4818225404d4a647ad67eb
/
.
/
gcc
/
testsuite
/
g77.f-torture
/
compile
/
980427-0.f
blob: d5d7d74c57b054acb8744f61ff73f8d0fffe449b [
file
] [
log
] [
blame
]
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