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

[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

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

[weinert at cmth dot phys dot uwm dot edu]

------- Additional Comments From weinert at cmth dot phys dot uwm dot edu  2005-08-16 19:34 -------
Created an attachment (id=9507)
 --> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=9507&action=view)
test case


-- 


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

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

[tkoenig at gcc dot gnu dot org]

------- Additional Comments From tkoenig at gcc dot gnu dot org  2005-08-16 20:12 -------
Confirmed.





-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |tkoenig at gcc dot gnu dot
                   |dot org                     |org
             Status|UNCONFIRMED                 |ASSIGNED
     Ever Confirmed|                            |1
   Last reconfirmed|0000-00-00 00:00:00         |2005-08-16 20:12:32
               date|                            |


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

[Bug libfortran/23428] inquire(iolength= ) for complex give incorrect value

[cvs-commit at gcc dot gnu dot org]

------- Additional Comments From cvs-commit at gcc dot gnu dot org  2005-08-16 20:26 -------
Subject: Bug 23428

CVSROOT:	/cvs/gcc
Module name:	gcc
Changes by:	tkoenig@gcc.gnu.org	2005-08-16 20:26:04

Modified files:
	libgfortran    : ChangeLog 
	libgfortran/io : transfer.c 
	gcc/testsuite  : ChangeLog 
Added files:
	gcc/testsuite/gfortran.dg: inquire-complex.f90 

Log message:
	2005-08-16  Thomas Koenig  <Thomas.Koenig@online.de>
	
	PR libfortran/23428
	* io/transfer.c (iolength_transfer):  Remove __attribute__ ((unused))
	from type.  Return correct length for inquire(iolength=)
	for complex variables.
	
	2005-08-16  Thomas Koenig  <Thomas.Koenig@online.de>
	
	PR libfortran/23428
	* gfortran.dg/inquire-complex.f90:  New test case.

Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/ChangeLog.diff?cvsroot=gcc&r1=1.284&r2=1.285
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/io/transfer.c.diff?cvsroot=gcc&r1=1.52&r2=1.53
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.diff?cvsroot=gcc&r1=1.5929&r2=1.5930
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/inquire-complex.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1



-- 


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

[Bug libfortran/23428] inquire(iolength= ) for complex give incorrect value

[cvs-commit at gcc dot gnu dot org]

------- Additional Comments From cvs-commit at gcc dot gnu dot org  2005-08-16 21:30 -------
Subject: Bug 23428

CVSROOT:	/cvs/gcc
Module name:	gcc
Changes by:	tkoenig@gcc.gnu.org	2005-08-16 21:30:32

Modified files:
	gcc/testsuite/gfortran.dg: inquire-complex.f90 

Log message:
	2005-08-16  Thomas Koenig  <Thomas.Koenig@online.de>
	
	PR libfortran/23428
	* gfortran.dg/inquire-complex.f90:  Correct mangled testcase.

Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/inquire-complex.f90.diff?cvsroot=gcc&r1=1.1&r2=1.2



-- 


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

[Bug libfortran/23428] inquire(iolength= ) for complex give incorrect value

[cvs-commit at gcc dot gnu dot org]

------- Additional Comments From cvs-commit at gcc dot gnu dot org  2005-08-16 21:38 -------
Subject: Bug 23428

CVSROOT:	/cvs/gcc
Module name:	gcc
Branch: 	gcc-4_0-branch
Changes by:	tkoenig@gcc.gnu.org	2005-08-16 21:38:29

Modified files:
	libgfortran    : ChangeLog 
	libgfortran/io : transfer.c 
	gcc/testsuite  : ChangeLog 
Added files:
	gcc/testsuite/gfortran.dg: inquire-complex.f90 

Log message:
	2005-08-16  Thomas Koenig  <Thomas.Koenig@online.de>
	
	PR libfortran/23428
	* io/transfer.c (iolength_transfer):  Return correct length
	for inquire(iolength=) for complex variables.
	
	2005-08-16  Thomas Koenig  <Thomas.Koenig@online.de>
	
	PR libfortran/23428
	* gfortran.dg/inquire-complex.f90:  New test case.

Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/ChangeLog.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=1.163.2.78&r2=1.163.2.79
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/io/transfer.c.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=1.32.2.12&r2=1.32.2.13
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=1.5084.2.337&r2=1.5084.2.338
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/inquire-complex.f90.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=NONE&r2=1.2.2.1



-- 


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

[Bug libfortran/23428] inquire(iolength= ) for complex give incorrect value

[tkoenig at gcc dot gnu dot org]

------- Additional Comments From tkoenig at gcc dot gnu dot org  2005-08-16 21:39 -------
Fixed in 4.0 and mainline.  Closing.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|ASSIGNED                    |RESOLVED
           Keywords|                            |wrong-code
         Resolution|                            |FIXED
   Target Milestone|---                         |4.0.2


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