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: unassig...@gcc.gnu.org
ReportedBy: jonathan.h...@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.
