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

gcc/testsuite/ChangeLog

 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
 	* gfortran.fortran-torture/execute/intrinsic_spread.f90:
 	Test callee-allocated version of return array with a write

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