aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/allocatable3.f90
diff options
context:
space:
mode:
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.f9021
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