20010426-1.f
[
plain text
]
c { dg-do run }
print
*,cos(1.0)
end