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

["jonathan.hogg at stfc dot ac.uk" <gcc-bugzilla at gcc dot gnu dot org>]

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.