[Bug fortran/80741] [Regression 7/8] incorrect behaviour of rewind with namelist

[jvdelisle at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=80741

Jerry DeLisle <jvdelisle at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |pault at gcc dot gnu.org

--- Comment #3 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Regression testing completed. The offending patch is the DTIO changes on
8-31-2016.

Looking at the tree dump we see things like:

   dt_parm.4.common.iostat = &ios;
    dt_parm.4.namelist_name = &"test"[1]{lb: 1 sz: 1};
    dt_parm.4.namelist_name_len = 4;
    dt_parm.4.common.flags = 33056;
    _gfortran_st_set_nml_dtio_var (&dt_parm.4, &x, &"x"[1]{lb: 1 sz: 1}, 4, 0,
8, 0B, 0B);
    _gfortran_st_set_nml_dtio_var (&dt_parm.4, &y, &"y"[1]{lb: 1 sz: 1}, 4, 0,
8, 0B, 0B);
    dt_parm.4.common.unit = io;
    _gfortran_st_read (&dt_parm.4);
    _gfortran_st_read_done (&dt_parm.4);
  }
  {

Where this case does not involve dtio.