--- Comment #7 from fxcoudert at gcc dot gnu dot org 2007-08-14 14:10
---
Reduced testcase:
subroutine print_sub(l, labels)
logical :: l
character (len=*), optional :: labels(1)
if (l) call foo
if (present(labels)) then
print *, labels(1)
end if
end
The logical and
--- Comment #8 from fxcoudert at gcc dot gnu dot org 2007-08-14 15:26
---
(In reply to comment #7)
I suspect that 'anonymous' is labels.0 (though it *has* a name!)
Well, that was wrong. If you look at the gimple tree (004t.gimple), it contains
the following:
print_sub (l, labels,
--- Comment #5 from fxcoudert at gcc dot gnu dot org 2007-07-09 22:01
---
Subject: Bug 29459
Author: fxcoudert
Date: Mon Jul 9 22:00:52 2007
New Revision: 126496
URL: http://gcc.gnu.org/viewcvs?root=gccview=revrev=126496
Log:
PR fortran/29459
* trans-array.c
--- Comment #6 from fxcoudert at gcc dot gnu dot org 2007-07-09 22:03
---
With the initial testcase:
module foo_mod
implicit none
contains
subroutine print_sub(fmt_acf,iu,labels)
character (len=*), intent(in), optional :: fmt_acf
integer , intent(in), optional :: iu
character
--- Comment #2 from fxcoudert at gcc dot gnu dot org 2007-07-04 07:43
---
*** Bug 31688 has been marked as a duplicate of this bug. ***
--
fxcoudert at gcc dot gnu dot org changed:
What|Removed |Added
--- Comment #3 from fxcoudert at gcc dot gnu dot org 2007-07-04 07:44
---
(In reply to comment #2)
*** Bug 31688 has been marked as a duplicate of this bug. ***
Code from PR31688:
MODULE test
IMPLICIT NONE
CONTAINS
SUBROUTINE overlap(s, lds, pab, force_a)
INTEGER, INTENT(IN)
--- Comment #4 from fxcoudert at gcc dot gnu dot org 2007-07-04 07:50
---
Updated partial patch:
Index: trans-array.c
===
--- trans-array.c (revision 126249)
+++ trans-array.c (working copy)
@@ -1695,6 +1695,7
--
fxcoudert at gcc dot gnu dot org changed:
What|Removed |Added
AssignedTo|unassigned at gcc dot gnu |fxcoudert at gcc dot gnu dot
|dot org
--- Comment #1 from fxcoudert at gcc dot gnu dot org 2006-11-25 19:41
---
Confirmed. You can get rid of a few of those with:
Index: trans-decl.c
===
--- trans-decl.c(revision 119204)
+++ trans-decl.c
