gcc/testsuite/gfortran.dg/goacc/subarrays.f95

   1 ! { dg-do compile }
   2 program test
   3   implicit none
   4   integer :: a(10), b(10, 10), c(3:7), i
   5
   6   !$acc parallel copy(a(1:5))
   7   !$acc end parallel
   8   !$acc parallel copy(a(1 + 0 : 5 + 2))
   9   !$acc end parallel
  10   !$acc parallel copy(a(:3))
  11   !$acc end parallel
  12   !$acc parallel copy(a(3:))
  13   !$acc end parallel
  14   !$acc parallel copy(a(:))
  15   !$acc end parallel
  16   !$acc parallel copy(a(2:3,2:3))
  17   ! { dg-error "Rank mismatch" "" { target *-*-* } 16 }
  18   ! { dg-error "'a' in MAP clause" "" { target *-*-* } 16 }
  19   !$acc end parallel
  20   !$acc parallel copy (a(:11)) ! { dg-warning "Upper array reference" }
  21   !$acc end parallel
  22   !$acc parallel copy (a(i:))
  23   !$acc end parallel
  24
  25   !$acc parallel copy (a(:b))
  26   ! { dg-error "Array index" "" { target *-*-* } 25 }
  27   ! { dg-error "'a' in MAP clause" "" { target *-*-* } 25 }
  28   !$acc end parallel
  29
  30   !$acc parallel copy (b(1:3,2:4))
  31   !$acc end parallel
  32   !$acc parallel copy (b(2:3))
  33   ! { dg-error "Rank mismatch" "" { target *-*-* } 32 }
  34   ! { dg-error "'b' in MAP clause" "" { target *-*-* } 32 }
  35   !$acc end parallel
  36   !$acc parallel copy (b(1:, 4:6))
  37   !$acc end parallel
  38
  39   !$acc parallel copy (c(2:)) ! { dg-warning "Lower array reference" }
  40   !$acc end parallel
  41 end program test