https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66545

Thomas Koenig <tkoenig at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |ASSIGNED
   Last reconfirmed|                            |2015-06-15
                 CC|                            |tkoenig at gcc dot gnu.org
           Assignee|unassigned at gcc dot gnu.org      |tkoenig at gcc dot 
gnu.org
     Ever confirmed|0                           |1

--- Comment #3 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
This fixes the complex part, the others need their own parts.

Index: primary.c
===================================================================
--- primary.c   (Revision 224450)
+++ primary.c   (Arbeitskopie)
@@ -1254,6 +1254,13 @@ match_sym_complex_part (gfc_expr **result)
       return MATCH_ERROR;
     }

+  if (sym->value == NULL)
+    {
+      gfc_error ("PARAMETER %qs is used at %C before its definition "
+                "is complete", sym->name);
+      return MATCH_ERROR;
+    }
+
   if (!gfc_numeric_ts (&sym->value->ts))
     {
       gfc_error ("Numeric PARAMETER required in complex constant at %C");

Reply via email to