diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2020-06-23 21:59:47 +0200 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2020-06-23 21:59:47 +0200 |
| commit | 6f609029c7078fbd29e2f842074e2b99ea099096 (patch) | |
| tree | 75bacbf008f170ce33976af3f9600a3ff13d9422 /gcc/testsuite/gfortran.fortran-torture | |
| parent | 788b962aa00959e861b45767c5c88ec41ca30c21 (diff) | |
| download | gcc-6f609029c7078fbd29e2f842074e2b99ea099096.zip gcc-6f609029c7078fbd29e2f842074e2b99ea099096.tar.gz gcc-6f609029c7078fbd29e2f842074e2b99ea099096.tar.bz2 | |
Make forall statement in testsuite conforming.
The recent patch for dependency checking introduced one failing test
case for pointer assignments in a forall statement. This test case
was invalid because of an interdependency in a forall statement.
This patch fixes that by removing that dependency.
gcc/testsuite/ChangeLog:
* gfortran.fortran-torture/execute/forall_5.f90: Make forall
statement conforming.
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture')
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/forall_5.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/forall_5.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/forall_5.f90 index 9b33e21..c162d44 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/forall_5.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/forall_5.f90 @@ -4,23 +4,23 @@ program forall_5 integer, pointer, dimension(:)::p end type - type (element) q(5) + type (element) :: q(5), r(5) integer, target, dimension(25)::t n = 5 do i = 1,5 - q(i)%p => t((i-1)*n + 1:i*n) + r(i)%p => t((i-1)*n + 1:i*n) enddo forall (i = 2:5) - q(i)%p => q(i-1)%p + q(i)%p => r(i-1)%p end forall do i = 1, 25 t(i) = i enddo - if (any(q(1)%p .ne. (/1,2,3,4,5/))) STOP 1 + if (any(r(1)%p .ne. (/1,2,3,4,5/))) STOP 1 if (any(q(2)%p .ne. (/1,2,3,4,5/))) STOP 2 if (any(q(3)%p .ne. (/6,7,8,9,10/))) STOP 3 if (any(q(4)%p .ne. (/11,12,13,14,15/))) STOP 4 |