gcc/testsuite/gfortran.dg/gomp/target-device-ancestor-6.f90

   1 ! PR middle-end/107236
   2
   3 ! Did ICE before because IFN .GOMP_TARGET_REV was not
   4 ! processed in omp-offload.cc.
   5 ! Note: Test required ENABLE_OFFLOADING being true inside GCC.
   6
   7 implicit none
   8 !$omp requires reverse_offload
   9 !$omp target parallel num_threads(4)
  10   !$omp target device(ancestor:1)
  11     call foo()
  12   !$omp end target
  13 !$omp end target parallel
  14 contains
  15   subroutine foo
  16   end
  17 end