------- Comment #23 from fxcoudert at gcc dot gnu dot org 2007-10-05 22:02 ------- (In reply to comment #22) > Created an attachment (id=14307) --> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=14307&action=view) [edit] > Patch for 4 testcases of this PR
It also fixes that one: contains Character (len=20) Function Up (string) Character(len=*) string Up = transfer(achar(iachar(transfer(string,"x",1))), "x") return end function Up end But the original achar_4.f90 still generates mismatched types and the following stills ICEs: contains Character (len=20) Function Up (string) Character(len=*) string Up = & transfer(merge(transfer(string,"x",len(string)), & string, .true.), "x") return end function Up end -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31608