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