[Bug libfortran/24174] New: real(10) array output broken

["fxcoudert at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

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