The following program, which worked before Janne Blomqvist's recent patch to
enable array I/O, now fails:
$ cat u.f90
real(kind=10) :: a,b(1)
a = 0
b(:) = 0
print *, a
print *, b
end
$ gfortran u.f90 && ./a.out
0.00000000000000
At line 5 of file u.f90
Internal Error: bad real kind
It appears that, at line 1005 in transfer.c, the transfer routine is called
with kind=12 while it was (and probably should be) 10. Somewhere, the
distinction between kind and size has to be made.
--
Summary: real(10) array output broken
Product: gcc
Version: 4.1.0
Status: NEW
Keywords: rejects-valid
Severity: normal
Priority: P2
Component: libfortran
AssignedTo: jblomqvi at cc dot hut dot fi
ReportedBy: fxcoudert at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24174
