From a27cc1c02ff96d7d65150fd75ca70103ceb8347d Mon Sep 17 00:00:00 2001 From: tkoenig Date: Fri, 15 Apr 2005 20:21:10 +0000 Subject: [PATCH] 2005-04-15 Thomas Koenig * gfortran.fortran-torture/execute/intrinsic_spread.f90: corrected typo where the wrong variables had been compared. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@98209 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 5 +++++ .../gfortran.fortran-torture/execute/intrinsic_spread.f90 | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 594aae10f555..9b5b6e1b1199 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-04-15 Thomas Koenig + + * gfortran.fortran-torture/execute/intrinsic_spread.f90: + corrected typo where the wrong variables had been compared. + 2005-04-15 Thomas Koenig PR libfortran/18495 diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spread.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spread.f90 index 2308a1d64aa9..8a89b2d731a6 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spread.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spread.f90 @@ -12,6 +12,6 @@ program foo write(line2, 9000) spread (a, 1, 2) if (line1 /= line2) call abort write(line3, 9000) spread (a, 1, 2) + 0 - if (line1 /= line2) call abort + if (line1 /= line3) call abort 9000 format(12I3) end program -- 2.47.3