[Bug fortran/27683] Many new GFORTRAN testsuite failures

[fxcoudert at gcc dot gnu dot org]

------- Comment #6 from fxcoudert at gcc dot gnu dot org  2006-05-24 06:14 
-------
Reduced testcase (fails at -O1 and higher):

       character*1 b
       b = ''
       write (*, '()')
       end

is compiled into (-gfump-original-tree):

MAIN__ ()
{
  char b[1:1];

  _gfortran_set_std (70, 127, 0);
  _gfortran_copy_string (1, &b, 0, "");
  {
    struct __st_parameter_dt dt_parm.0;

    dt_parm.0.common.filename = "write_logical.f90";
    dt_parm.0.common.line = 3;
    dt_parm.0.common.unit = 6;
    dt_parm.0.format = "()";
    dt_parm.0.format_len = 2;
    dt_parm.0.common.flags = 4096;
    _gfortran_st_write (&dt_parm.0);
    _gfortran_st_write_done (&dt_parm.0);
  }
}

but, when setting a breakpoint in _gfortran_st_write, we can see that the
format is wrong:

(gdb) p dtp->format
$4 = 0x2ffc ""

and I think it's an alignment issue, because the "real" format is just a bit
further down the dtp:

(gdb) p dtp->format+1
$5 = 0x2ffd "()"


Jerry, which of your patches has been commited on mainline but not on 4.1?


-- 

fxcoudert at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |jvdelisle at gcc dot gnu dot
                   |                            |org, fxcoudert at gcc dot
                   |                            |gnu dot org, pinskia at gcc
                   |                            |dot gnu dot org
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2006-05-24 06:14:52
               date|                            |


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