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