------- Comment #1 from pault at gcc dot gnu dot org 2007-11-26 09:03 -------
Francois,
Many thanks for the report.
gfortran works correctly if you change cnames to assumed shape:
SUBROUTINE odfamilycnames(base,nfam,cnames)
TYPE(odbase),INTENT(in) :: base
INTEGER ,INTENT(out) :: nfam
CHARACTER(*),INTENT(out) :: cnames(:) <= Assumed size not working here
nfam=0
cnames(1:nfam)=' '
write(*,*) 'odfamilycnames'
END SUBROUTINE
This is a double bug because gfortran is failing to recognise the error in the
call:
CALL odfamilycnames(base,i,cname)
Paul
--
pault at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
Last reconfirmed|0000-00-00 00:00:00 |2007-11-26 09:03:54
date| |
Summary|wrong selection of a routine|Scalar actual not
|belonging to an interface |distinguished from assumed
| |size formal argument
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34231
