gcc/testsuite/gfortran.dg/gomp/map-subarray.f90

   1 ! { dg-do compile }
   2 ! { dg-additional-options "-fdump-tree-gimple" }
   3
   4 type T
   5 integer, pointer :: arr1(:)
   6 integer, pointer :: arr2(:)
   7 end type T
   8
   9 type(T) :: tv
  10 integer, allocatable, target, dimension(:) :: arr
  11
  12 allocate(arr(1:20))
  13
  14 tv%arr1 => arr
  15 tv%arr2 => arr
  16
  17 !$omp target map(tv%arr1)
  18 tv%arr1(1) = tv%arr1(1) + 1
  19 !$omp end target
  20
  21 ! { dg-final { scan-tree-dump {(?n)#pragma omp target.* map\(struct:tv \[len: 1\]\) map\(to:tv\.arr1 \[pointer set, len: [0-9]+\]\) map\(tofrom:MEM <integer\(kind=4\)\[0:\]> \[\(integer\(kind=4\)\[0:\] \*\)_[0-9]+\] \[len: _[0-9]+\]\[implicit\]\) map\(attach:tv\.arr1\.data \[bias: 0\]\)} "gimple" } }
  22
  23 !$omp target map(tv%arr2) map(tv%arr2(1:10))
  24 tv%arr2(1) = tv%arr2(1) + 1
  25 !$omp end target
  26
  27 !$omp target map(tv%arr2(1:10))
  28 tv%arr2(1) = tv%arr2(1) + 1
  29 !$omp end target
  30
  31 ! { dg-final { scan-tree-dump-times {(?n)#pragma omp target.* map\(struct:tv \[len: 1\]\) map\(to:tv\.arr2 \[pointer set, len: [0-9]+\]\) map\(tofrom:MEM <integer\(kind=4\)\[0:\]> \[\(integer\(kind=4\)\[0:\] \*\)_[0-9]+\] \[len: _[0-9]+\]\) map\(attach:tv\.arr2\.data \[bias: [^\]]+\]\)} 2 "gimple" } }
  32
  33 !$omp target map(tv, tv%arr2(1:10))
  34 tv%arr2(1) = tv%arr2(1) + 1
  35 !$omp end target
  36
  37 ! { dg-final { scan-tree-dump {(?n)#pragma omp target.* map\(tofrom:tv \[len: [0-9]+\]\) map\(tofrom:MEM <integer\(kind=4\)\[0:\]> \[\(integer\(kind=4\)\[0:\] \*\)_[0-9]+\] \[len: _[0-9]+\]\) map\(attach:tv\.arr2\.data \[bias: [^\]]+\]\)} "gimple" } }
  38
  39 end
  40