c { dg-do run }
      print*,cos(1.0)
      end