flang/test/Semantics/OpenMP/allocators01.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
   2 ! OpenMP Version 5.2
   3 ! 6.7 allocators construct
   4 ! A list item that appears in an allocate clause must appear as
   5 ! one of the variables that is allocated by the allocate-stmt in
   6 ! the associated allocator structured block.
   7
   8 subroutine allocate()
   9 use omp_lib
  10
  11   integer, allocatable :: arr1(:), arr2(:, :), arr3(:), arr4(:, :)
  12
  13   !$omp allocators allocate(arr3)
  14     allocate(arr3(3), arr4(4, 4))
  15   !$omp end allocators
  16
  17   !ERROR: Object 'arr1' in ALLOCATORS directive not found in corresponding ALLOCATE statement
  18   !$omp allocators allocate(omp_default_mem_alloc: arr1, arr2)
  19     allocate(arr2(2, 2))
  20
  21 end subroutine allocate