28 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=522 3subroutine f004 implicit none5 integer, allocatable :: a(:)6 7 !$omp allocators allocate(a)8!ERROR: The body of an ALLOCATORS construct should be an ALLOCATE statement9 continue10end11 12subroutine f0113 implicit none14 integer, allocatable :: a(:)15 16!ERROR: The body of an ALLOCATORS construct should be an ALLOCATE statement17 !$omp allocators allocate(a)18 !$omp end allocators19end20 21subroutine f0222 implicit none23 integer, allocatable :: a(:)24 25!ERROR: The body of an ALLOCATORS construct should be an ALLOCATE statement26 !$omp allocators allocate(a)27end28