Bug 36314 - gfortran.dg/eoshift_large_1.f90 doesn't work
Summary: gfortran.dg/eoshift_large_1.f90 doesn't work
Status: RESOLVED FIXED
Alias: None
Product: gcc
Classification: Unclassified
Component: fortran (show other bugs)
Version: 4.4.0
: P3 normal
Target Milestone: ---
Assignee: Not yet assigned to anyone
URL:
Keywords:
Depends on:
Blocks:
 
Reported: 2008-05-23 14:13 UTC by H.J. Lu
Modified: 2008-05-23 15:17 UTC (History)
2 users (show)

See Also:
Host:
Target: x86_64-unknown-linux-gnu
Build:
Known to work:
Known to fail:
Last reconfirmed:


Attachments

Note You need to log in before you can comment on or make changes to this bug.
Description H.J. Lu 2008-05-23 14:13:57 UTC
I got

Executing on host: /export/build/gnu/gcc/build-x86_64-linux/gcc/testsuite/gfortran/../../gfortran -B/export/build/gnu/gcc/build-x86_64-linux/gcc/testsuite/gfortran/../../ /net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90   -O0   -pedantic-errors  -L/export/build/gnu/gcc/build-x86_64-linux/x86_64-unknown-linux-gnu/./libgfortran/.libs -L/export/build/gnu/gcc/build-x86_64-linux/x86_64-unknown-linux-gnu/./libgfortran/.libs -L/export/build/gnu/gcc/build-x86_64-linux/x86_64-unknown-linux-gnu/./libiberty  -lm   -o ./eoshift_large_1.exe    (timeout = 300)
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:55.1:^M
^M
 (/3_k, 3_k/)))) call abort^M
1^M
Warning: Nonconforming tab character at (1)^M
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:60.1:^M
^M
 (/3_k, 3_k/)))) call abort^M
1^M
Warning: Nonconforming tab character at (1)^M
Comment 1 Dominique d'Humieres 2008-05-23 14:30:59 UTC
(from http://gcc.gnu.org/ml/gcc-patches/2008-05/msg01473.html)
> It may be a 64bit target problem.

I don't think so. As stated by the warnings "Nonconforming tab character", there are two "tabs" in the test source, making it nonstandard conforming, hence the warnings.

Comment 2 H.J. Lu 2008-05-23 14:45:28 UTC
I got different messages for 64bit and 32bit targets on Linux/Intel64:

[hjl@gnu-26 gfortran]$ /export/build/gnu/gcc/build-x86_64-linux/gcc/testsuite/gfortran/../../gfortran -B/export/build/gnu/gcc/build-x86_64-linux/gcc/testsuite/gfortran/../../ /net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90   -Os   -pedantic-errors  -S
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:55.1:

 (/3_k, 3_k/)))) call abort
1
Warning: Nonconforming tab character at (1)
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:60.1:

 (/3_k, 3_k/)))) call abort
1
Warning: Nonconforming tab character at (1)
[hjl@gnu-26 gfortran]$ /export/build/gnu/gcc/build-x86_64-linux/gcc/testsuite/gfortran/../../gfortran -B/export/build/gnu/gcc/build-x86_64-linux/gcc/testsuite/gfortran/../../ /net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90   -Os   -pedantic-errors  -S -m32
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:7.16:

  integer(kind=k), dimension(3_k, 3_k) :: a
               1
Error: Kind 16 not supported for type INTEGER at (1)
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:8.17:

   integer(kind=k), dimension(3_k, 3_k, 2_k) :: b
                1
Error: Kind 16 not supported for type INTEGER at (1)
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:9.17:

   integer(kind=k), dimension(3_k) :: bo, sh
                1
Error: Kind 16 not supported for type INTEGER at (1)
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:12.21:

   a = reshape ((/1_k, 2_k, 3_k, 4_k, 5_k, 6_k, 7_k, 8_k, 9_k/), (/3_k, 3_k/))
                    1
Error: Integer kind 16 at (1) not available
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:13.22:

   a = eoshift (a, 1_k, 99_k, 1_k)
                     1
Error: Integer kind 16 at (1) not available
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:14.33:

   if (any (a .ne. reshape ((/2_k, 3_k, 99_k, 5_k, 6_k, 99_k, 8_k, 9_k, 99_k/),
                                1
Error: Integer kind 16 at (1) not available
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:17.21:

   a = reshape ((/1_k, 2_k, 3_k, 4_k, 5_k, 6_k, 7_k, 8_k, 9_k/), (/3_k, 3_k/))
                    1
Error: Integer kind 16 at (1) not available
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:18.25:

   a = eoshift (a, 9999_k, 99_k, 1_k)
                        1
Error: Integer kind 16 at (1) not available
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:19.23:

   if (any (a .ne. 99_k)) call abort
                      1
Error: Integer kind 16 at (1) not available
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:21.21:

   a = reshape ((/1_k, 2_k, 3_k, 4_k, 5_k, 6_k, 7_k, 8_k, 9_k/), (/3_k, 3_k/))
                    1
Error: Integer kind 16 at (1) not available
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:22.23:

   a = eoshift (a, -2_k, dim = 2_k)
                      1
Error: Integer kind 16 at (1) not available
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:23.33:

   if (any (a .ne. reshape ((/0_k, 0_k, 0_k, 0_k, 0_k, 0_k, 1_k, 2_k, 3_k/), (/
                                1
Error: Integer kind 16 at (1) not available
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:26.21:

   a = reshape ((/1_k, 2_k, 3_k, 4_k, 5_k, 6_k, 7_k, 8_k, 9_k/), (/3_k, 3_k/))
                    1
Error: Integer kind 16 at (1) not available
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:27.26:

   a = eoshift (a, -9999_k, 99_k, 1_k)
                         1
Error: Integer kind 16 at (1) not available
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:28.23:

   if (any (a .ne. 99_k)) call abort
                      1
Error: Integer kind 16 at (1) not available
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:31.21:

   a = reshape ((/1_k, 2_k, 3_k, 4_k, 5_k, 6_k, 7_k, 8_k, 9_k/), (/3_k, 3_k/))
                    1
Error: Integer kind 16 at (1) not available
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:32.24:

   a = eoshift (a, (/1_k, 0_k, -1_k/), 99_k, 1_k)
                       1
Error: Integer kind 16 at (1) not available
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:33.33:

   if (any (a .ne. reshape ((/2_k, 3_k, 99_k, 4_k, 5_k, 6_k, 99_k, 7_k, 8_k/),
                                1
Error: Integer kind 16 at (1) not available
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:36.21:

   a = reshape ((/1_k, 2_k, 3_k, 4_k, 5_k, 6_k, 7_k, 8_k, 9_k/), (/3_k, 3_k/))
                    1
Error: Integer kind 16 at (1) not available
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:37.27:

   a = eoshift (a, (/9999_k, 0_k, -9999_k/), 99_k, 1_k)
                          1
Error: Integer kind 16 at (1) not available
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:38.34:

   if (any (a .ne. reshape ((/99_k, 99_k, 99_k, 4_k, 5_k, 6_k, 99_k, 99_k, 99_k
                                 1
Error: Integer kind 16 at (1) not available
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:41.21:

   a = reshape ((/1_k, 2_k, 3_k, 4_k, 5_k, 6_k, 7_k, 8_k, 9_k/), (/3_k, 3_k/))
                    1
Error: Integer kind 16 at (1) not available
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:42.24:

   a = eoshift (a, (/2_k, -2_k, 0_k/), dim = 2_k)
                       1
Error: Integer kind 16 at (1) not available
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:43.33:

   if (any (a .ne. reshape ((/7_k, 0_k, 3_k, 0_k, 0_k, 6_k, 0_k, 2_k, 9_k/), (/
                                1
Error: Integer kind 16 at (1) not available
/net/gnu-13/export/gnu/src/gcc/gcc/gcc/testsuite/gfortran.dg/eoshift_large_1.f90:47.21:

   a = reshape ((/1_k, 2_k, 3_k, 4_k, 5_k, 6_k, 7_k, 8_k, 9_k/), (/3_k, 3_k/))
                    1
Error: Integer kind 16 at (1) not available
Fatal Error: Error count reached limit of 25.
[hjl@gnu-26 gfortran]$
Comment 3 Tobias Burnus 2008-05-23 15:07:53 UTC
Subject: Bug 36314

Author: burnus
Date: Fri May 23 15:06:26 2008
New Revision: 135817

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=135817
Log:
2008-05-23  Tobias Burnus  <burnus@net-b.de>

       PR fortran/36314
       * gfortran.dg/eoshift_large_1.f90: Replace tabs by spaces.


Modified:
    trunk/gcc/testsuite/ChangeLog
    trunk/gcc/testsuite/gfortran.dg/eoshift_large_1.f90

Comment 4 Tobias Burnus 2008-05-23 15:08:56 UTC
FIXED on the trunk (4.4.0).

 * * *

> I got different messages for 64bit and 32bit targets on Linux/Intel64:
> Error: Kind 16 not supported for type INTEGER at (1)

That error should never occur on 32bit as there is in the header:

! { dg-require-effective-target fortran_large_int }

The error on 64bit was due to the TABs which are widely supported, but invalid according to the Fortran standard. (Thus there is a warning with -pedantic, but it was only tested without -pedantic. Sorry!)
Comment 5 Dominique d'Humieres 2008-05-23 15:17:19 UTC
> I got different messages for 64bit and 32bit targets on Linux/Intel64:

AFAICT KIND=16 is available on 64 bit mode only:  dg-require-effective-target fortran_large_int .