1! Test ACC ROUTINE inside an interface block.
2
3program 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
31end program main
32
33