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

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