blob: b25fa62377f68854880bf36ed970fd04953fb844 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! 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
|
