21 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=512 3subroutine f00(y)4 integer :: x(10), y5 !ERROR: Must be a constant value6 !$omp allocate(x) align(y)7end8 9subroutine f01()10 integer :: x(10)11 !ERROR: The alignment should be a power of 212 !$omp allocate(x) align(7)13end14 15subroutine f02()16 integer :: x(10)17 !ERROR: The alignment should be positive18 !$omp allocate(x) align(-8)19end20 21