21 lines · plain
1! REQUIRES: openmp_runtime2 3! RUN: %python %S/../test_errors.py %s %flang_fc1 %openmp_flags -fopenmp-version=514! OpenMP Version 5.25! The allocate clause's allocator modifier must be of type allocator_handle6! and the align modifier must be constant, positive integer expression7 8subroutine allocate()9 use omp_lib10 11 integer, allocatable :: a, b, c12 13 !ERROR: The alignment value should be a constant positive integer14 !$omp allocators allocate(allocator(-2), align(-3): b)15 allocate(b)16 17 !ERROR: The alignment value should be a constant positive integer18 !$omp allocators allocate(align(-4): c)19 allocate(c)20end subroutine21