21 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 Directive 6! List items specified in the allocate directive must not have the ALLOCATABLE attribute unless the directive is associated with an7! allocate statement.8 9subroutine allocate()10use omp_lib11 integer :: a, b, x12 real, dimension (:,:), allocatable :: darray13 14 !ERROR: A list item in a declarative ALLOCATE cannot have the ALLOCATABLE or POINTER attribute15 !$omp allocate(darray) allocator(omp_default_mem_alloc)16 continue17 !$omp allocate(darray) allocator(omp_default_mem_alloc)18 allocate(darray(a, b))19 20end subroutine allocate21