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