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

   1 ! REQUIRES: openmp_runtime
   2
   3 ! RUN: %python %S/../test_errors.py %s %flang_fc1 %openmp_flags -fopenmp-version=51
   4 ! OpenMP Version 5.2
   5 ! The allocate clause's allocator modifier must be of type allocator_handle
   6 ! and the align modifier must be constant, positive integer expression
   7
   8 subroutine allocate()
   9     use omp_lib
  10
  11     integer, allocatable :: a, b, c
  12
  13     !ERROR: The alignment value should be a constant positive integer
  14     !$omp allocators allocate(allocator(-2), align(-3): b)
  15         allocate(b)
  16
  17     !ERROR: The alignment value should be a constant positive integer
  18     !$omp allocators allocate(align(-4): c)
  19         allocate(c)
  20 end subroutine