19 lines
627 B
Fortran
19 lines
627 B
Fortran
! 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
|