flang/test/Semantics/omp-allocate06.f90

   1 ! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp
   2 ! REQUIRES: shell
   3 ! OpenMP Version 5.0
   4 ! 2.11.3 allocate Directive
   5 ! List items specified in the allocate directive must not have the ALLOCATABLE attribute unless the directive is associated with an
   6 ! allocate statement.
   7
   8 subroutine allocate()
   9 use omp_lib
  10   integer :: a, b, x
  11   real, dimension (:,:), allocatable :: darray
  12
  13   !ERROR: List items specified in the ALLOCATE directive must not have the ALLOCATABLE attribute unless the directive is associated with an ALLOCATE statement
  14   !$omp allocate(darray) allocator(omp_default_mem_alloc)
  15
  16   !$omp allocate(darray) allocator(omp_default_mem_alloc)
  17     allocate(darray(a, b))
  18
  19 end subroutine allocate