18 lines · plain
1! REQUIRES: openmp_runtime2 3! RUN: %python %S/../test_errors.py %s %flang_fc1 %openmp_flags4! OpenMP Version 5.25! 6.7 allocators construct6! Only the allocate clause is allowed on the allocators construct7 8subroutine allocate()9use omp_lib10 11 integer, allocatable :: arr1(:), arr2(:)12 13 !ERROR: PRIVATE clause is not allowed on the ALLOCATORS directive14 !$omp allocators allocate(arr1) private(arr2)15 allocate(arr1(23), arr2(2))16 17end subroutine allocate18