------- 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
