blob: 6fb80879ef7e29b31c3e2687bfed857e9317338d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
implicit none
integer, allocatable :: a, b
integer :: q
integer :: arr(2)
!$omp allocators allocate(align(64): a)
allocate(a, b) ! OK
!$omp end allocators
!$omp allocators allocate(align(128): b)
allocate(a, b) ! OK (assuming not allocated)
!$omp allocators allocate(align(62.0): a) ! { dg-error "a scalar positive constant integer alignment expression" }
allocate(a)
!$omp allocators allocate(align(64): a, b) ! { dg-error "'b' specified in 'allocate' at \\(1\\) but not in the associated ALLOCATE statement" }
allocate(a)
!$omp end allocators
end
|
