OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Thomas Koenig 2005-04-15 20:21:10 +00:00 committed by Thomas Koenig
parent 8e6d7b8a35
commit 472573f9f9
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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

2
gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spread.f90
View 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