[Bug fortran/34231] Scalar actual not distinguished from assumed size formal argument

[pault at gcc dot gnu dot org]

------- 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