From: Tobias Burnus Date: Fri, 23 May 2008 15:06:26 +0000 (+0200) Subject: re PR fortran/36314 (gfortran.dg/eoshift_large_1.f90 doesn't work) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e793b0fe876d3e89c5aac4449d172c88f9fa3729;p=gcc.git re PR fortran/36314 (gfortran.dg/eoshift_large_1.f90 doesn't work) 2008-05-23 Tobias Burnus 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 7fedaf1ea12..d18afd8e6aa 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-05-23 Tobias Burnus + + PR fortran/36314 + * gfortran.dg/eoshift_large_1.f90: Replace tabs by spaces. + 2008-05-23 Arnaud Charlet * 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)