[Bug fortran/31608] wrong types in character array/scalar binop

[fxcoudert at gcc dot gnu dot org]

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