------- Comment #15 from dominiq at lps dot ens dot fr 2009-12-15 13:29 ------- > and the second one has this bb: > > <bb 43>: > dt_parm.33.common.filename = &"where_2.f90"[1]{lb: 1 sz: 1}; > ... > _gfortran_st_write_done (&dt_parm.33);
This is probably due to a print I put in the code to look at the array temp: ... print *, temp if (any (temp .ne. (/100, 100, 100, 210, 210, 210, 310, 310, 337, 337/))) & ... I forgot to mention it. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41082