19990313-2.f
[
plain text
]
integer *8 foo, bar
complex
c
data
c/(4e10,0)/ foo = 4e10 bar = c
if
(foo
.ne.
bar)
call
abort
end