diff options
| author | Thomas Koenig <Thomas.Koenig@online.de> | 2005-04-15 20:21:10 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2005-04-15 20:21:10 +0000 |
| commit | 472573f9f92704b3a9bb861bbb31e2ef8d14ff53 (patch) | |
| tree | a462bb7c31728a5d4610f4db1217cc3a4b6689fd /gcc | |
| parent | 8e6d7b8a35bdb1f089e83ac8f6a85253e4272c86 (diff) | |
| download | gcc-472573f9f92704b3a9bb861bbb31e2ef8d14ff53.zip gcc-472573f9f92704b3a9bb861bbb31e2ef8d14ff53.tar.gz gcc-472573f9f92704b3a9bb861bbb31e2ef8d14ff53.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spread.f90 | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 594aae1..9b5b6e1 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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 diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spread.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spread.f90 index 2308a1d..8a89b2d 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 |