fb5fd2d82f
This PR changes the build system to use use the sources for the module `omp_lib` and the `omp_lib.h` include file from the `openmp` runtime project and not from a separate copy of these files. This will greatly reduce potential for inconsistencies when adding features to the OpenMP runtime implementation. When the OpenMP subproject is not configured, this PR also disables the corresponding LIT tests with a "REQUIRES" directive at the beginning of the OpenMP test files. --------- Co-authored-by: Valentin Clement (バレンタイン クレメン) <clementval@gmail.com>
24 lines
712 B
Fortran
24 lines
712 B
Fortran
! REQUIRES: openmp_runtime
|
|
|
|
! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
|
|
! OpenMP Version 5.2
|
|
! 6.7 allocators construct
|
|
! A list item that appears in an allocate clause must appear as
|
|
! one of the variables that is allocated by the allocate-stmt in
|
|
! the associated allocator structured block.
|
|
|
|
subroutine allocate()
|
|
use omp_lib
|
|
|
|
integer, allocatable :: arr1(:), arr2(:, :), arr3(:), arr4(:, :)
|
|
|
|
!$omp allocators allocate(arr3)
|
|
allocate(arr3(3), arr4(4, 4))
|
|
!$omp end allocators
|
|
|
|
!ERROR: Object 'arr1' in ALLOCATORS directive not found in corresponding ALLOCATE statement
|
|
!$omp allocators allocate(omp_default_mem_alloc: arr1, arr2)
|
|
allocate(arr2(2, 2))
|
|
|
|
end subroutine allocate
|