diff options
Diffstat (limited to 'gcc-4.4.3/libgomp/testsuite/libgomp.fortran/allocatable3.f90')
-rw-r--r-- | gcc-4.4.3/libgomp/testsuite/libgomp.fortran/allocatable3.f90 | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/allocatable3.f90 b/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/allocatable3.f90 deleted file mode 100644 index fe3714a2b..000000000 --- a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/allocatable3.f90 +++ /dev/null @@ -1,21 +0,0 @@ -! { dg-do run } - - integer, allocatable :: a(:) - integer :: i - logical :: l - l = .false. - if (allocated (a)) call abort -!$omp parallel private (a) reduction (.or.:l) - allocate (a (-7:-5)) - l = l.or..not.allocated (a) - l = l.or.size(a).ne.3.or.size(a,1).ne.3 - a(:) = 0 - !$omp do private (a) - do i = 1, 7 - a(:) = i - l = l.or.any (a.ne.i) - end do - l = l.or.any (a.ne.0) - deallocate (a) -!$omp end parallel -end |