2 integer, allocatable
:: a
, b
6 !$omp allocators allocate(align(64): a)
7 block
! { dg-error "expected ALLOCATE statement after !.OMP ALLOCATORS" }
8 end block
! { dg-error "Expecting END PROGRAM statement" }
11 !$omp allocators allocate(align(64): a)
15 !$omp allocators allocate(align(128): b)
16 allocate(a
, b
) ! OK (assuming not allocated)
19 !$omp allocators allocate(align(64): a)
20 allocate(a
, b
, stat
=arr
) ! { dg-error "Stat-variable at .1. must be a scalar INTEGER variable" }
24 !$omp allocators allocate(align(64): a)
25 allocate(q
) ! { dg-error "is neither a data pointer nor an allocatable variable" }
26 !$omp end allocators ! { dg-error "Unexpected !.OMP END ALLOCATORS" }