[Bug fortran/36186] Wrong handling of BOZ in CMPLX

[fxcoudert at gcc dot gnu dot org]

--- Comment #3 from fxcoudert at gcc dot gnu dot org  2008-05-14 21:37 
---
Fixed on 4.4.


-- 

fxcoudert at gcc dot gnu dot org changed:

   What|Removed |Added

 Status|ASSIGNED|RESOLVED
 Resolution||FIXED
   Target Milestone|--- |4.4.0


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

[Bug fortran/36186] Wrong handling of BOZ in CMPLX

[fxcoudert at gcc dot gnu dot org]

--- Comment #2 from fxcoudert at gcc dot gnu dot org  2008-05-14 21:37 
---
Subject: Bug 36186

Author: fxcoudert
Date: Wed May 14 21:36:26 2008
New Revision: 135308

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=135308
Log:
PR fortran/36186

* simplify.c (only_convert_cmplx_boz): New function.
(gfc_simplify_cmplx, gfc_simplify_complex, gfc_simplify_dcmplx):
Call only_convert_cmplx_boz.

* gfortran.dg/boz_11.f90: New test.
* gfortran.dg/boz_12.f90: New test.

Added:
trunk/gcc/testsuite/gfortran.dg/boz_11.f90
trunk/gcc/testsuite/gfortran.dg/boz_12.f90
Modified:
trunk/gcc/fortran/ChangeLog
trunk/gcc/fortran/simplify.c
trunk/gcc/testsuite/ChangeLog


-- 


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

[Bug fortran/36186] Wrong handling of BOZ in CMPLX

[fxcoudert at gcc dot gnu dot org]

--- Comment #1 from fxcoudert at gcc dot gnu dot org  2008-05-09 09:40 
---
And a related issue:

program test0
   implicit none
   integer :: x = 0
   write(*,*) cmplx(b'10110100101010001',x,4)
end program test0

This should error with "BOZ constant at (1) is too large (33 vs 32 bits)", as
we do for other cases, but it doesn't. This seems to imply we really should
take care of all this in the simplification routine (convert the BOZ).


-- 

fxcoudert at gcc dot gnu dot org changed:

   What|Removed |Added

 AssignedTo|unassigned at gcc dot gnu   |fxcoudert at gcc dot gnu dot
   |dot org |org
 Status|UNCONFIRMED |ASSIGNED
 Ever Confirmed|0   |1
   Last reconfirmed|-00-00 00:00:00 |2008-05-09 09:40:29
   date||


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