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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 7fedaf1ea12a17331a82306e707ea9723d0d718e..d18afd8e6aae884f5c2d5c8cd0a8e7584c4c6527 100644 (file)
--- 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 02938f9cb7980ac3f529a19788bf9e12e9d4e36b..3b0ef7e36b05ac525f36042dbd42df37e981525c 100644 (file)
--- 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)