intrinsic_spread.f90: corrected typo where the wrong variables had been compared.

2005-04-15  Thomas Koenig  <Thomas.Koenig@online.de>

        * gfortran.fortran-torture/execute/intrinsic_spread.f90:
        corrected typo where the wrong variables had been compared.

From-SVN: r98209

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 594aae10f555d501de8eb505a359cde110486722..9b5b6e1b119959a16ad9d8084fce651f17e2dc01 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2005-04-15  Thomas Koenig  <Thomas.Koenig@online.de>
+
+       * gfortran.fortran-torture/execute/intrinsic_spread.f90:
+       corrected typo where the wrong variables had been compared.
+
 2005-04-15  Thomas Koenig  <Thomas.Koenig@online.de>
 
        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 2308a1d64aa96a767698c518bf02ea48ca0384ac..8a89b2d731a67c127817a5b96faf4b79f04a9463 100644 (file)
--- 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