This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/31608] wrong types in character array/scalar binop
- From: "rguenth at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 11 Jul 2007 10:00:55 -0000
- Subject: [Bug fortran/31608] wrong types in character array/scalar binop
- References: <bug-31608-10053@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- Comment #17 from rguenth at gcc dot gnu dot org 2007-07-11 10:00 -------
Reduced testcase:
contains
Character (len=20) Function Up (string)
Character(len=*) string
Up = transfer(achar(iachar(transfer(string,"x",1))), "x")
return
end function Up
end
char.3 = (*(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;
the first line is correct, the second is not.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31608