exp.f
[
plain text
]
a = 2**-2*1.
if
(a
.ne.
.25)
call
abort
end