[Bug libfortran/56810] New: record-repeat fails kind check on complex read

[Bug libfortran/56810] New: record-repeat fails kind check on complex read

[jonathan.hogg at stfc dot ac.uk]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=56810

             Bug #: 56810
           Summary: record-repeat fails kind check on complex read
    Classification: Unclassified
           Product: gcc
           Version: unknown
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: libfortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: jonathan.hogg@stfc.ac.uk


The following code:
program test
   implicit none

   integer :: i
   complex :: a(4)

   read(*,*) a(:)
end program test

Fails at runtime with the following line of input:
4*(0.0,0.0)

It is fine with:
(0.0,0.0) (0.0,0.0) (0.0,0.0) (0.0,0.0)

Error message is:
$ gfortran -g -o bug bug.f90 && ./bug < bugdata 
At line 6 of file bug.f90 (unit = 5, file = 'stdin')
Fortran runtime error: Read kind 8 COMPLEX where kind 4 is required for item 2

Version:
$ gfortran -v
Using built-in specs.
COLLECT_GCC=gfortran
COLLECT_LTO_WRAPPER=/usr/lib/gcc/x86_64-linux-gnu/4.7/lto-wrapper
Target: x86_64-linux-gnu
Configured with: ../src/configure -v --with-pkgversion='Ubuntu/Linaro
4.7.2-4ubuntu1' --with-bugurl=file:///usr/share/doc/gcc-4.7/README.Bugs
--enable-languages=c,c++,go,fortran,objc,obj-c++ --prefix=/usr
--program-suffix=-4.7 --enable-shared --enable-linker-build-id
--with-system-zlib --libexecdir=/usr/lib --without-included-gettext
--enable-threads=posix --with-gxx-include-dir=/usr/include/c++/4.7
--libdir=/usr/lib --enable-nls --with-sysroot=/ --enable-clocale=gnu
--enable-libstdcxx-debug --enable-libstdcxx-time=yes --enable-gnu-unique-object
--enable-plugin --enable-objc-gc --disable-werror --with-arch-32=i686
--with-tune=generic --enable-checking=release --build=x86_64-linux-gnu
--host=x86_64-linux-gnu --target=x86_64-linux-gnu
Thread model: posix
gcc version 4.7.2 (Ubuntu/Linaro 4.7.2-4ubuntu1)

Regards,

Jonathan.

[Bug libfortran/56810] record-repeat fails kind check on complex read

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=56810

Tobias Burnus <burnus at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |wrong-code
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2013-04-02
                 CC|                            |burnus at gcc dot gnu.org,
                   |                            |jvdelisle at gcc dot
                   |                            |gnu.org
     Ever Confirmed|0                           |1
      Known to fail|                            |4.1.2, 4.3.4, 4.5.3, 4.6.3,
                   |                            |4.7.2, 4.8.0, 4.9.0

--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> 2013-04-02 13:22:33 UTC ---
> Fortran runtime error: Read kind 8 COMPLEX where kind 4 is required for item 2

That's a rather odd message for I/O: The I/O system should be agnostic too the
keal kinds. (Besides, there is only kind=4 in the example.)

It's not a regression, I get the same failure with GCC/gfortran 4.1 to 4.9

[Bug libfortran/56810] record-repeat fails kind check on complex read

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=56810

Tobias Burnus <burnus at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |RESOLVED
         Resolution|                            |FIXED

--- Comment #3 from Tobias Burnus <burnus at gcc dot gnu.org> 2013-04-04 11:25:21 UTC ---
FIXED on the trunk (= GCC 4.9).

Thanks for the report!

[Bug libfortran/56810] record-repeat fails kind check on complex read

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=56810

--- Comment #2 from Tobias Burnus <burnus at gcc dot gnu.org> 2013-04-04 11:24:58 UTC ---
Author: burnus
Date: Thu Apr  4 11:24:15 2013
New Revision: 197479

URL: http://gcc.gnu.org/viewcvs?rev=197479&root=gcc&view=rev
Log:
2013-04-04  Tobias Burnus  <burnus@net-b.de>

        PR fortran/56810
        * io/list_read.c (check_type): Fix kind checking for COMPLEX.

2013-04-04  Tobias Burnus  <burnus@net-b.de>

        PR fortran/56810
        * gfortran.dg/read_repeat_2.f90: New.


Added:
    trunk/gcc/testsuite/gfortran.dg/read_repeat_2.f90
Modified:
    trunk/gcc/testsuite/ChangeLog
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/io/list_read.c