diff options
| author | Tobias Burnus <burnus@net-b.de> | 2008-05-23 17:06:26 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2008-05-23 17:06:26 +0200 |
| commit | e793b0fe876d3e89c5aac4449d172c88f9fa3729 (patch) | |
| tree | bf8aaf456444c72ce31a36068539123c8cbe22f2 /gcc | |
| parent | c201998ae941d04578f1f54f1ce6bd7f41ac2668 (diff) | |
| download | gcc-e793b0fe876d3e89c5aac4449d172c88f9fa3729.zip gcc-e793b0fe876d3e89c5aac4449d172c88f9fa3729.tar.gz gcc-e793b0fe876d3e89c5aac4449d172c88f9fa3729.tar.bz2 | |
re PR fortran/36314 (gfortran.dg/eoshift_large_1.f90 doesn't work)
2008-05-23 Tobias Burnus <burnus@net-b.de>
PR fortran/36314
* gfortran.dg/eoshift_large_1.f90: Replace tabs by spaces.
From-SVN: r135817
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/eoshift_large_1.f90 | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 7fedaf1..d18afd8 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-05-23 Tobias Burnus <burnus@net-b.de> + + PR fortran/36314 + * gfortran.dg/eoshift_large_1.f90: Replace tabs by spaces. + 2008-05-23 Arnaud Charlet <charlet@adacore.com> * gnat.dg/addr_slice.adb: New test. diff --git a/gcc/testsuite/gfortran.dg/eoshift_large_1.f90 b/gcc/testsuite/gfortran.dg/eoshift_large_1.f90 index 02938f9..3b0ef7e 100644 --- a/gcc/testsuite/gfortran.dg/eoshift_large_1.f90 +++ b/gcc/testsuite/gfortran.dg/eoshift_large_1.f90 @@ -52,12 +52,12 @@ program intrinsic_eoshift a = reshape ((/1_k, 2_k, 3_k, 4_k, 5_k, 6_k, 7_k, 8_k, 9_k/), (/3_k, 3_k/)) a = eoshift (a, 9999_k, (/99_k, -1_k, 42_k/), 1_k) if (any (a .ne. reshape ((/99_k, 99_k, 99_k, -1_k, -1_k, -1_k, 42_k, 42_k, 42_k/), & - (/3_k, 3_k/)))) call abort + (/3_k, 3_k/)))) call abort a = reshape ((/1_k, 2_k, 3_k, 4_k, 5_k, 6_k, 7_k, 8_k, 9_k/), (/3_k, 3_k/)) a = eoshift (a, -9999_k, (/99_k, -1_k, 42_k/), 1_k) if (any (a .ne. reshape ((/99_k, 99_k, 99_k, -1_k, -1_k, -1_k, 42_k, 42_k, 42_k/), & - (/3_k, 3_k/)))) call abort + (/3_k, 3_k/)))) call abort a = reshape ((/1_k, 2_k, 3_k, 4_k, 5_k, 6_k, 7_k, 8_k, 9_k/), (/3_k, 3_k/)) a = eoshift (a, -2_k, (/99_k, -1_k, 42_k/), 2_k) |