gcc/testsuite/gfortran.dg/goacc/loop-3.f95

   1 ! { dg-do compile }
   2 ! { dg-additional-options "-std=f2008" }
   3
   4 subroutine test1
   5   implicit none
   6   integer :: i, j
   7
   8   ! !$acc end loop not required by spec
   9   !$acc loop
  10   do i = 1,5
  11   enddo
  12   !$acc end loop ! { dg-warning "Redundant" }
  13
  14   !$acc loop
  15   do i = 1,5
  16   enddo
  17   j = 1
  18   !$acc end loop ! { dg-error "Unexpected" }
  19
  20   !$acc parallel
  21   !$acc loop
  22   do i = 1,5
  23   enddo
  24   !$acc end parallel
  25   !$acc end loop ! { dg-error "Unexpected" }
  26
  27   ! OpenACC supports Fortran 2008 do concurrent statement
  28   !$acc loop
  29   do concurrent (i = 1:5)
  30   end do
  31
  32   !$acc loop
  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" }
  37     end do inner_loop
  38   end do outer_loop
  39
  40   outer_loop1: do i = 1, 5
  41     !$acc loop
  42     inner_loop1: do j = 1,5
  43       if (i .eq. j) cycle outer_loop1 ! { dg-error "CYCLE statement" }
  44     end do inner_loop1
  45   end do outer_loop1
  46
  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" }
  52     end do inner_loop2
  53   end do outer_loop2
  54 end subroutine test1
  55