libgomp/testsuite/libgomp.oacc-fortran/pr109622.f90

   1 ! { dg-do run }
   2
   3 implicit none
   4
   5 type t
   6 integer :: value
   7 type(t), pointer :: chain
   8 end type t
   9
  10 type(t), target :: var, var2
  11
  12 var%value = 99
  13 var2%value = 199
  14
  15 var%chain => var2
  16 nullify(var2%chain)
  17
  18 !$acc enter data copyin(var, var2)
  19
  20 !$acc enter data attach(var%chain)
  21
  22 !$acc serial
  23 ! { dg-warning "using .vector_length \\(32\\)., ignoring 1" "" { target openacc_nvidia_accel_selected } .-1 }
  24 var%value = 5
  25 var%chain%value = 7
  26 !$acc end serial
  27
  28 !$acc exit data detach(var%chain)
  29
  30 !$acc exit data copyout(var, var2)
  31
  32 if (var%value.ne.5) stop 1
  33 if (var2%value.ne.7) stop 2
  34
  35 end