blob: c90391538854f6f29a7749661bad1d3c7d64a7cd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
! 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
|
