gcc/testsuite/gfortran.dg/gomp/allocate-13.f90

   1 module m
   2   implicit none
   3   !$omp requires dynamic_allocators
   4 contains
   5 subroutine f ()
   6   !$omp declare target
   7   integer :: var
   8   !$omp allocate(var)
   9   var = 5
  10 end
  11
  12 subroutine h ()
  13   !$omp target
  14    !$omp parallel
  15     !$omp single
  16       block
  17        integer :: var2(5)
  18        !$omp allocate(var2)
  19        var2(1) = 7
  20       end block
  21     !$omp end single
  22    !$omp end parallel
  23   !$omp end target
  24 end
  25 end module