2 ! { dg-additional-options "-std=f2008" }
8 ! !$acc end loop not required by spec
12 !$acc end loop ! { dg-warning "Redundant" }
18 !$acc end loop ! { dg-error "Unexpected" }
25 !$acc end loop ! { dg-error "Unexpected" }
27 ! OpenACC supports Fortran 2008 do concurrent statement
29 do concurrent (i
= 1:5)
33 outer_loop
: do i
= 1, 5
34 inner_loop
: do j
= 1,5
35 if (i
.eq
. j
) cycle outer_loop
36 if (i
.ne
. j
) exit outer_loop
! { dg-error "EXIT statement" }
40 outer_loop1
: do i
= 1, 5
42 inner_loop1
: do j
= 1,5
43 if (i
.eq
. j
) cycle outer_loop1
! { dg-error "CYCLE statement" }
47 !$acc loop collapse(2)
48 outer_loop2
: do i
= 1, 5
49 inner_loop2
: do j
= 1,5
50 if (i
.eq
. j
) cycle outer_loop2
! { dg-error "CYCLE statement" }
51 if (i
.ne
. j
) exit outer_loop2
! { dg-error "EXIT statement" }