blob: ce8cc4d10b3e1358fc366fbb7a4b4aded0bfd508 [file] [log] [blame]
c { dg-do run }
print*,cos(1.0)
end