------- Comment #89 from dominiq at lps dot ens dot fr 2009-11-28 19:04 -------
> Do you see this in gcc 4.4.2 as well?
No. A test case is
[ibook-dhum] f90/bug% cat pr34231.f90
MODULE test
TYPE odbase ; INTEGER :: value ; END TYPE
INTERFACE odfname
MODULE PROCEDURE odfamilycname,odfamilycnames
END INTERFACE
CONTAINS
SUBROUTINE odfamilycnames(base,nfam,cnames)
TYPE(odbase),INTENT(in) :: base
INTEGER ,INTENT(out) :: nfam
CHARACTER(*),INTENT(out) :: cnames(*)
nfam=0
cnames(1:nfam)=' '
write(*,*) 'odfamilycnames'
END SUBROUTINE
SUBROUTINE odfamilycname(base,pos,cname)
TYPE(odbase),INTENT(in) :: base
INTEGER ,INTENT(in) :: pos
CHARACTER(*),INTENT(out) :: cname
cname=' '
write(*,*) 'odfamilycname'
END SUBROUTINE
END MODULE
PROGRAM main
USE test
TYPE(odbase) :: base
INTEGER :: i=1
CHARACTER(8) :: cname
CALL odfname(base,i,cname)
END PROGRAM
ibook-dhum] f90/bug% gfc -c -o pr34231.o -O3 -g pr34231.f90
[ibook-dhum] f90/bug% gfc pr34231.o
[ibook-dhum] f90/bug% dsymutil a.out
warning: DWARFDebugInfoEntry::AppendDependants() -- check on this item
TAG_subrange_type: attr = AT_upper_bound form = FORM_ref4
[ibook-dhum] f90/bug% gfc44 -c -o pr34231.o -O3 -g pr34231.f90
[ibook-dhum] f90/bug% gfc44 pr34231.o
[ibook-dhum] f90/bug% dsymutil a.out
[ibook-dhum] f90/bug%
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41473
