llvm/flang/test/Semantics/OpenMP/allocators06.f90

! REQUIRES: openmp_runtime

! RUN: %python %S/../test_errors.py %s %flang_fc1 %openmp_flags
! OpenMP Version 5.2
! Inherited from 2.11.3 allocate directive
! The allocate directive must appear in the same scope as the declarations of
! each of its list items and must follow all such declarations.

subroutine allocate()
    use omp_lib
    integer, allocatable :: a
contains
    subroutine test()
        !ERROR: List items must be declared in the same scoping unit in which the ALLOCATORS directive appears
        !$omp allocators allocate(omp_default_mem_alloc: a)
            allocate(a)
    end subroutine
end subroutine