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

[pault at gcc dot gnu dot org]

------- Comment #25 from pault at gcc dot gnu dot org  2007-10-07 12:49 -------
(In reply to comment #17)

> 
> the first line is correct, the second is not.
>

Richard, does this do it for you?

  {
    char char.3[1:1];

    char.3[1]{lb: 1 sz: 1} = (*(char[0:][1:1] *) atmp.0.data)[S.2][1]{lb: 1 sz:
1};
    (*(char[0:][1:1] *) atmp.1.data)[S.2] = char.3;
  }


Paul


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31608