--- Comment #7 from burnus at gcc dot gnu dot org 2009-06-16 06:57 ---
FIXED on the trunk (4.5).
Patch was: http://gcc.gnu.org/ml/gcc-patches/2009-06/msg01147.html
See also follow-up PR 40452.
--
burnus at gcc dot gnu dot org changed:
What|Removed
--- Comment #6 from burnus at gcc dot gnu dot org 2009-06-16 06:57 ---
Subject: Bug 40383
Author: burnus
Date: Tue Jun 16 06:57:09 2009
New Revision: 148517
URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=148517
Log:
2009-06-16 Tobias Burnus
PR fortran/40383
*
--- Comment #5 from burnus at gcc dot gnu dot org 2009-06-10 12:05 ---
Forgot to mention: I will not be able to regtest/submit the patch before Monday
evening.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40383
--- Comment #4 from burnus at gcc dot gnu dot org 2009-06-10 12:02 ---
Patch -- I believe it does the right thing; especially, it preserves
backend_decl. If one copied the type earlier, the backend_decl would be
different and the backend does not like it, when the same type has different
--- Comment #3 from burnus at gcc dot gnu dot org 2009-06-09 12:09 ---
The problem is that fsym->ts.cl of all of "a", "b", "c" and "d" to the same
struct:
(gdb) p sym->formal->sym->name
$17 = 0x2ab31ec8 "a"
(gdb) p sym->formal->sym->ts
$18 = {... cl = 0x12b6da0 ...}
(gdb) p sym->for
--- Comment #2 from burnus at gcc dot gnu dot org 2009-06-09 10:29 ---
I think the patch for PR fortran/37746 is OK, but something else goes wrong:
f1 (character(kind=1)[1:80] * a, character(kind=1)[1:80] * b,
character(kind=1)[1:80] * c, character(kind=1)[1:80] * d, integer(kind=4) _a,
--
burnus at gcc dot gnu dot org changed:
What|Removed |Added
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
Last reconfir
--- Comment #1 from jv244 at cam dot ac dot uk 2009-06-09 07:44 ---
I'm guessing due to :
2009-04-11 Daniel Kraft
PR fortran/37746
--
jv244 at cam dot ac dot uk changed:
What|Removed |Added
-