path: root/gcc/testsuite/gfortran.dg/goacc/pr84963.f90

! PR ipa/84963
! { dg-additional-options "-O2" }

program p
   print *, sin([1.0, 2.0])
   print *, cos([1.0, 2.0])
end