flang/test/Semantics/OpenMP/allocate-directive.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
   2 ! Check OpenMP Allocate directive
   3 use omp_lib
   4
   5 ! 2.11.3 declarative allocate
   6 ! 2.11.3 executable allocate
   7
   8 real, dimension (:,:), allocatable :: darray
   9 integer :: a, b, x, y, m, n, t, z
  10 !$omp allocate(x, y)
  11 !$omp allocate(x, y) allocator(omp_default_mem_alloc)
  12
  13 !$omp allocate(a, b)
  14     allocate ( darray(a, b) )
  15
  16 !$omp allocate(a, b) allocator(omp_default_mem_alloc)
  17     allocate ( darray(a, b) )
  18
  19 !$omp allocate(t) allocator(omp_const_mem_alloc)
  20 !$omp allocate(z) allocator(omp_default_mem_alloc)
  21 !$omp allocate(m) allocator(omp_default_mem_alloc)
  22 !$omp allocate(n)
  23     allocate ( darray(z, t) )
  24
  25 end