83b462af17
Adds a hint to the warning message to disable a warning and updates the tests to expect this. Also fixes a bug in the storage of canonical spelling of error flags so that they are not used after free.
22 lines
823 B
Fortran
22 lines
823 B
Fortran
! REQUIRES: openmp_runtime
|
|
|
|
! RUN: %python %S/../test_errors.py %s %flang_fc1 %openmp_flags -fopenmp-version=52
|
|
! OpenMP Version 5.2
|
|
! The allocate clause's allocator modifier must be of type allocator_handle
|
|
! and the align modifier must be constant, positive integer expression
|
|
|
|
program allocate_align_tree
|
|
use omp_lib
|
|
integer, allocatable :: j(:), xarray(:)
|
|
integer :: z, t, xx
|
|
t = 2
|
|
z = 3
|
|
!ERROR: The alignment value should be a constant positive integer
|
|
!$omp allocate(j) align(xx)
|
|
!WARNING: OpenMP directive ALLOCATE has been deprecated, please use ALLOCATORS instead. [-Wopen-mp-usage]
|
|
!ERROR: The alignment value should be a constant positive integer
|
|
!$omp allocate(xarray) align(-32) allocator(omp_large_cap_mem_alloc)
|
|
allocate(j(z), xarray(t))
|
|
end program allocate_align_tree
|
|
|