Attachment 912938 Details for Bug 1113793 – Quick fix to avoid seg-faulting in this case

[patch] Quick fix to avoid seg-faulting in this case

b1113793.patch (text/plain), 1.13 KB, created by Fritz Reese on 2014-06-27 19:30:17 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Fritz Reese

Created: 2014-06-27 19:30:17 UTC

Size: 1.13 KB

patch

obsolete

>--- gcc/fortran/decl.c	2014-06-27 14:56:56.000000000 -0400
>+++ gcc/fortran/decl.c	2014-06-27 14:56:19.000000000 -0400
>@@ -487,6 +487,15 @@
>   gfc_symbol *sym;
>   gfc_data *newdata;
> 
>+  /* FIXME:? Old style initializations not supported for derived type
>+     components. */
>+  if (gfc_current_state () == COMP_DERIVED)
>+    {
>+      gfc_error ("Invalid old style initialization for derived type "
>+                 "component at %C");
>+      return MATCH_ERROR;
>+    }
>+
>   /* Set up data structure to hold initializers.  */
>   gfc_find_sym_tree (name, NULL, 0, &st);
>   sym = st->n.sym;
>--- gcc/fortran/ChangeLog-2014	2014-06-04 10:52:35.508304786 -0400
>+++ gcc/fortran/ChangeLog-2014	2014-06-27 15:20:36.000000000 -0400
>@@ -0,0 +1,10 @@
>+2014-06-27 Fritz Reese  <Reese-Fritz@zai.com>
>+	* decl.c (match_old_style_init): Throw syntax error if old style
>+	initialization appears in a derived-type component declaration.
>+
>+
>+Copyright (C) 2014 Free Software Foundation, Inc.
>+
>+Copying and distribution of this file, with or without modification,
>+are permitted in any medium without royalty provided the copyright
>+notice and this notice are preserved.

Actions: View | Diff

Attachments on bug 1113793: 912600 | 912913 | 912938