[Bug fortran/31465] spurious error: Implicitly typed PARAMETER doesn't match a later IMPLICIT type

[pault at gcc dot gnu dot org]

------- Comment #1 from pault at gcc dot gnu dot org  2007-04-04 09:44 -------
This fixes the immediate problem.  I have to check with the standard if the
parameter is meant to take all of its characteristics from the value or if it
is just KIND.

Index: gcc/fortran/decl.c
===================================================================
*** gcc/fortran/decl.c  (révision 123426)
--- gcc/fortran/decl.c  (copie de travail)
*************** do_parm (void)
*** 3992,3997 ****
--- 3992,4000 ----
        goto cleanup;
      }

+   if (sym->attr.implicit_type)
+     sym->ts.kind = init->ts.kind;
+
    if (gfc_check_assign_symbol (sym, init) == FAILURE
        || gfc_add_flavor (&sym->attr, FL_PARAMETER, sym->name, NULL) ==
FAILURE
)
      {

Paul


-- 

pault at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |pault at gcc dot gnu dot org
                   |dot org                     |
             Status|UNCONFIRMED                 |ASSIGNED
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2007-04-04 09:44:00
               date|                            |


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