20010426.f
[
plain text
]
print
*,cos(1.0)
end