From f0edc02bc51d9a78fc5de6c666d667a957b5d73e Mon Sep 17 00:00:00 2001 From: burnus Date: Fri, 23 May 2008 15:06:26 +0000 Subject: 2008-05-23 Tobias Burnus 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 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/eoshift_large_1.f90 | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) (limited to 'gcc/testsuite') 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) -- cgit v1.2.1