flang/test/Semantics/omp-allocate02.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 ! At most one allocator clause can appear on the allocate directive.
   6
   7 subroutine allocate()
   8 use omp_lib
   9   integer :: x, y
  10   integer :: a, b
  11   real, dimension (:,:), allocatable :: darray
  12
  13   !$omp allocate(x, y) allocator(omp_default_mem_alloc)
  14
  15   !ERROR: At most one ALLOCATOR clause can appear on the ALLOCATE directive
  16   !$omp allocate(x, y) allocator(omp_default_mem_alloc) allocator(omp_default_mem_alloc)
  17
  18   !$omp allocate(x) allocator(omp_default_mem_alloc)
  19       allocate ( darray(a, b) )
  20
  21   !ERROR: At most one ALLOCATOR clause can appear on the ALLOCATE directive
  22   !$omp allocate(x) allocator(omp_default_mem_alloc) allocator(omp_default_mem_alloc)
  23       allocate ( darray(a, b) )
  24
  25 end subroutine allocate