[Bug fortran/23428] New: inquire(iolength= ) for complex give incorrect value

[weinert at cmth dot phys dot uwm dot edu]

implicit none
real    :: r 
comples :: c
integer :: size_real, size_complex

r = 0. ; c = cmplx( 0.,0.)
inquire( iolength=size_real )   r  ! = 4
inquire( iolength=size_complex) c  ! = 4 also; should give 8 

end

Size of a complex variable should be twice that of the corresponding real kind,
but inquire gives the same value. (Similar problem if kind is changed.) Writing
to direct access files opened using this record length will die because the
record length is too small.

-- 
           Summary: inquire(iolength= ) for complex give incorrect value
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: weinert at cmth dot phys dot uwm dot edu
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: i386-linux
  GCC host triplet: i386-linux
GCC target triplet: i386-linux


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23428