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

["pault at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #2 from pault at gcc dot gnu dot org  2007-11-26 09:47 -------
The patch below does the job but has yet to be regtested. I think that the
required F2003 survives correctly but I am having difficulty to find in the
ChangeLog where this was added. Tobias, what do you think? 

Index: gcc/fortran/interface.c
===================================================================
*** gcc/fortran/interface.c     (révision 130286)
--- gcc/fortran/interface.c     (copie de travail)
*************** compare_actual_formal (gfc_actual_arglis
*** 1782,1788 ****
                       || f->sym->as->type == AS_DEFERRED);

        if (f->sym->ts.type == BT_CHARACTER && a->expr->ts.type == BT_CHARACTER
!         && a->expr->rank == 0
          && f->sym->as && f->sym->as->type != AS_ASSUMED_SHAPE)
        {
          if (where && (gfc_option.allow_std & GFC_STD_F2003) == 0)
--- 1782,1788 ----
                       || f->sym->as->type == AS_DEFERRED);

        if (f->sym->ts.type == BT_CHARACTER && a->expr->ts.type == BT_CHARACTER
!         && a->expr->rank == 0 && !ranks_must_agree
          && f->sym->as && f->sym->as->type != AS_ASSUMED_SHAPE)
        {
          if (where && (gfc_option.allow_std & GFC_STD_F2003) == 0)

Paul


-- 

pault at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |burnus at gcc dot gnu dot
                   |                            |org
         AssignedTo|unassigned at gcc dot gnu   |pault at gcc dot gnu dot org
                   |dot org                     |
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2007-11-26 09:03:54         |2007-11-26 09:47:12
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34231