Commit e793b0fe by Tobias Burnus Committed by Tobias Burnus

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
parent c201998a
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.
......
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment