[Bug libfortran/25039] broken formatted I/O

[jvdelisle at gcc dot gnu dot org]

------- Comment #2 from jvdelisle at gcc dot gnu dot org  2005-11-26 01:35 
-------
-fdump-tree-original:  See below.  What is this unprintable character?  Is that
right?

MAIN__ ()
{
  int4 i2;
  int4 i1;

  {
    struct __st_parameter_dtquireY dt_parm.0;

    dt_parm.0.common.filename = "junk.f";
    dt_parm.0.common.line = 4;
    dt_parm.0.common.unit = 5;
    dt_parm.0.format = "(2i9)";
    dt_parm.0.format_len = 5;
    dt_parm.0.common.flags = 4096;
    _gfortran_st_read (&dt_parm.0);
    _gfortran_transfer_integer (&dt_parm.0, &i1, 4);
    _gfortran_transfer_integer (&dt_parm.0, &i2, 4);
    _gfortran_st_read_done (&dt_parm.0);
  }
  {
    struct __st_parameter_dtquireY dt_parm.1;

    dt_parm.1.common.filename = "junk.f";
    dt_parm.1.common.line = 5;
    dt_parm.1.common.unit = 6;
    dt_parm.1.common.flags = 128;
    _gfortran_st_write (&dt_parm.1);
    _gfortran_transfer_integer (&dt_parm.1, &i1, 4);
    _gfortran_transfer_integer (&dt_parm.1, &i2, 4);
    _gfortran_st_write_done (&dt_parm.1);
  }
}


-- 


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