e838c06588
Use the ultimate symbol while calling the `IsAllocatableOrPointer` function to ensure that the check works as expected for host-associated symbols. Fixes #58178 Reviewed By: PeteSteinfeld Differential Revision: https://reviews.llvm.org/D135443
14 lines
343 B
Fortran
14 lines
343 B
Fortran
! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
|
|
|
|
! Test to check that no errors are present when allocate statements
|
|
! are applied on privatised variables.
|
|
|
|
subroutine s
|
|
implicit none
|
|
double precision,allocatable,dimension(:) :: r
|
|
!$omp parallel private(r)
|
|
allocate(r(1))
|
|
deallocate(r)
|
|
!$omp end parallel
|
|
end subroutine
|