Retro68/gcc/libgomp/testsuite/libgomp.fortran/allocatable7.f90

17 lines
330 B
Fortran
Raw Normal View History

2012-03-27 23:13:14 +00:00
! { dg-do run }
integer, allocatable :: a(:)
logical :: l
l = .false.
!$omp parallel firstprivate (a) reduction (.or.:l)
l = allocated (a)
allocate (a(10))
l = l .or. .not. allocated (a)
a = 10
if (any (a .ne. 10)) l = .true.
deallocate (a)
l = l .or. allocated (a)
!$omp end parallel
if (l) call abort
end