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