! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp ! OpenMP Version 5.0 ! 2.11.3 allocate Directive ! Only the allocator clause is allowed on the allocate directive subroutine allocate() use omp_lib integer :: x, y !$omp allocate(x) allocator(omp_default_mem_alloc) !ERROR: PRIVATE clause is not allowed on the ALLOCATE directive !$omp allocate(y) private(y) end subroutine allocate