gcc/testsuite/gfortran.dg/goacc/pr71704.f90

   1 ! PR fortran/71704
   2 ! { dg-do compile }
   3
   4 real function f1 ()
   5 !$acc routine (f1)
   6   f1 = 1
   7 end
   8
   9 real function f2 (a)
  10   integer a
  11   !$acc enter data copyin(a)
  12   f2 = 1
  13 end
  14
  15 real function f3 (a)
  16   integer a
  17 !$acc enter data copyin(a)
  18   f3 = 1
  19 end
  20
  21 real function f4 ()
  22 !$acc wait
  23   f4 = 1
  24 end
  25
  26 real function f5 (a)
  27   integer a
  28 !$acc update device(a)
  29   f5 = 1
  30 end
  31
  32 real function f6 ()
  33 !$acc parallel
  34 !$acc end parallel
  35   f6 = 1
  36 end
  37
  38 real function f7 ()
  39 !$acc kernels
  40 !$acc end kernels
  41   f7 = 1
  42 end
  43
  44 real function f8 ()
  45 !$acc data
  46 !$acc end data
  47   f8 = 1
  48 end
  49
  50 real function f9 ()
  51 !$acc host_data
  52 !$acc end host_data
  53   f8 = 1
  54 end
  55
  56 real function f10 (a)
  57   integer a
  58 !$acc declare present (a)
  59   f8 = 1
  60 end