28 lines · plain
1! REQUIRES: openmp_runtime2 3! RUN: %python %S/../test_errors.py %s %flang_fc1 %openmp_flags4! OpenMP Version 5.05! 2.11.3 allocate Directive6! At most one allocator clause can appear on the allocate directive.7 8subroutine allocate()9use omp_lib10 integer :: x, y11 integer :: a, b12 real, dimension (:,:), allocatable :: darray13 14 !$omp allocate(x, y) allocator(omp_default_mem_alloc)15 16 !ERROR: At most one ALLOCATOR clause can appear on the ALLOCATE directive17 !$omp allocate(x, y) allocator(omp_default_mem_alloc) allocator(omp_default_mem_alloc)18 19 continue20 !$omp allocate(darray) allocator(omp_default_mem_alloc)21 allocate ( darray(a, b) )22 23 !ERROR: At most one ALLOCATOR clause can appear on the ALLOCATE directive24 !$omp allocate(darray) allocator(omp_default_mem_alloc) allocator(omp_default_mem_alloc)25 allocate ( darray(a, b) )26 27end subroutine allocate28