! Test ACC ROUTINE inside an interface block.

program main
  interface
     function s_1 (a)
       integer a
       !$acc routine
     end function s_1
  end interface

  interface
     function s_2 (a)
       integer a
       !$acc routine seq
     end function s_2
  end interface

  interface
     function s_3 (a)
       integer a
       !$acc routine (s_3) ! { dg-error "Only the ..ACC ROUTINE form without list is allowed in interface block" }
     end function s_3
  end interface

  interface
     function s_4 (a)
       integer a
         !$acc routine (s_4) seq ! { dg-error "Only the ..ACC ROUTINE form without list is allowed in interface block" }
     end function s_4
  end interface
end program main