gcc/testsuite/gfortran.dg/goacc/routine-8.f90

   1 ! Test ACC ROUTINE inside an interface block.
   2
   3 program main
   4   interface
   5      function s_1 (a)
   6        integer a
   7        !$acc routine
   8      end function s_1
   9   end interface
  10
  11   interface
  12      function s_2 (a)
  13        integer a
  14        !$acc routine seq
  15      end function s_2
  16   end interface
  17
  18   interface
  19      function s_3 (a)
  20        integer a
  21        !$acc routine (s_3) ! { dg-error "Only the ..ACC ROUTINE form without list is allowed in interface block" }
  22      end function s_3
  23   end interface
  24
  25   interface
  26      function s_4 (a)
  27        integer a
  28          !$acc routine (s_4) seq ! { dg-error "Only the ..ACC ROUTINE form without list is allowed in interface block" }
  29      end function s_4
  30   end interface
  31 end program main
  32