blob: 9be74a8591908f42274190d00ad848721f551247 (
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
! { dg-additional-options "-std=f2008" }
! See also loop-3.f95.
program test
call test1
contains
subroutine test1
implicit none
integer :: i, j
! !$acc end loop not required by spec
!$acc loop
do i = 1,5
enddo
!$acc end loop ! { dg-warning "Redundant" }
!$acc loop
do i = 1,5
enddo
j = 1
!$acc end loop ! { dg-error "Unexpected" }
!$acc parallel
!$acc loop
do i = 1,5
enddo
!$acc end parallel
!$acc end loop ! { dg-error "Unexpected" }
! OpenACC supports Fortran 2008 do concurrent statement
!$acc loop
do concurrent (i = 1:5)
end do
!$acc loop
outer_loop: do i = 1, 5
inner_loop: do j = 1,5
if (i .eq. j) cycle outer_loop
if (i .ne. j) exit outer_loop ! { dg-error "EXIT statement" }
end do inner_loop
end do outer_loop
outer_loop1: do i = 1, 5
!$acc loop
inner_loop1: do j = 1,5
if (i .eq. j) cycle outer_loop1 ! { dg-error "CYCLE statement" }
end do inner_loop1
end do outer_loop1
!$acc loop collapse(2)
outer_loop2: do i = 1, 5
inner_loop2: do j = 1,5
if (i .eq. j) cycle outer_loop2 ! { dg-error "CYCLE statement" }
if (i .ne. j) exit outer_loop2 ! { dg-error "EXIT statement" }
end do inner_loop2
end do outer_loop2
end subroutine test1
end program test
|
