[Bug fortran/31781] fortran regressions on trunk if you --disable-checking

[dfranke at gcc dot gnu dot org]

------- Comment #2 from dfranke at gcc dot gnu dot org  2007-05-03 22:46 -------
Confirmed.

Testcase:
$> cat repeat.f90
  character(len=1), parameter :: s1 = "a"
  print *, "aa: ", repeat(s1, 2)
  end

$> gfortran-svn -g -Wall -fdump-tree-original repeat.f90
$> cat repeat.f90.003t.original
MAIN__ ()
{
  _gfortran_set_std (68, 127, 0, 0, 0);
  {
    struct __st_parameter_dt dt_parm.0;

    dt_parm.0.common.filename = "repeat.f90";
    dt_parm.0.common.line = 3;
    dt_parm.0.common.unit = 6;
    dt_parm.0.common.flags = 128;
    _gfortran_st_write (&dt_parm.0);
    _gfortran_transfer_character (&dt_parm.0, "aa: ", 4);
    _gfortran_transfer_character (&dt_parm.0, "", 0);
    _gfortran_st_write_done (&dt_parm.0);
  }

If the PARAMETER statement of S1 is removed, REPEAT works as expected. 

Adding FX to CC as he worked on this a while ago.


-- 

dfranke at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |dfranke at gcc dot gnu dot
                   |                            |org, fxcoudert at gcc dot
                   |                            |gnu dot org
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
  GCC build triplet|x86_64-unknown-linux-gnu    |
   GCC host triplet|x86_64-unknown-linux-gnu    |
 GCC target triplet|x86_64-unknown-linux-gnu    |
      Known to fail|                            |4.3.0
   Last reconfirmed|0000-00-00 00:00:00         |2007-05-03 22:46:39
               date|                            |


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