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
