diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-23 15:06:26 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-23 15:06:26 +0000 |
| commit | f0edc02bc51d9a78fc5de6c666d667a957b5d73e (patch) | |
| tree | bf8aaf456444c72ce31a36068539123c8cbe22f2 /gcc/testsuite | |
| parent | e5ae4a001822c83219e2d61558b015c00753b79d (diff) | |
| download | gcc-f0edc02bc51d9a78fc5de6c666d667a957b5d73e.tar.gz | |
2008-05-23 Tobias Burnus <burnus@net-b.de>
PR fortran/36314
* gfortran.dg/eoshift_large_1.f90: Replace tabs by spaces.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135817 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite')
| -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 7fedaf1ea12..d18afd8e6aa 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 02938f9cb79..3b0ef7e36b0 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) |