OSDN Git Service

2005-04-15 Thomas Koenig <Thomas.Koenig@online.de>
authortkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 15 Apr 2005 20:21:10 +0000 (20:21 +0000)
committertkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 15 Apr 2005 20:21:10 +0000 (20:21 +0000)
        * 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
gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spread.f90

index 594aae1..9b5b6e1 100644 (file)
@@ -1,5 +1,10 @@
 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
index 2308a1d..8a89b2d 100644 (file)
@@ -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