From: Paul Thomas <pault@gcc.gnu.org>
Date: Sun, 8 Oct 2017 15:23:24 +0000 (+0000)
Subject: re PR fortran/82375 (PDT components in PDT declarations fail to compile)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=1741160c2f0388888f88ac7013d602b59690f57c;p=gcc.git

re PR fortran/82375 (PDT components in PDT declarations fail to compile)

2017-10-08  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/82375
	* module.c : Bump up MOD_VERSION to 15.
	(mio_component): Edit comment about PDT specification list.
	(mio_expr, mio_symbol): Include the expression and symbol PDT
	specification lists in the same way as in mio_component.

From-SVN: r253526
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 18edd111725..37a298019dd 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,11 @@
+2017-10-08  Paul Thomas  <pault@gcc.gnu.org>
+
+	PR fortran/82375
+	* module.c : Bump up MOD_VERSION to 15.
+	(mio_component): Edit comment about PDT specification list.
+	(mio_expr, mio_symbol): Include the expression and symbol PDT
+	specification lists in the same way as in mio_component.
+
 2017-10-08  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
 	* dump_prase_tree (show_symbol): Output list of variables in
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index 3f19a021609..16585a959b6 100644
--- a/gcc/fortran/module.c
+++ b/gcc/fortran/module.c
@@ -84,7 +84,7 @@ along with GCC; see the file COPYING3.  If not see
 
 /* Don't put any single quote (') in MOD_VERSION, if you want it to be
    recognized.  */
-#define MOD_VERSION "14"
+#define MOD_VERSION "15"
 
 
 /* Structure that describes a position within a module file.  */
@@ -2820,7 +2820,7 @@ mio_component (gfc_component *c, int vtype)
   /* PDT templates store the expression for the kind of a component here.  */
   mio_expr (&c->kind_expr);
 
-  /* PDT types store component specification list here. */
+  /* PDT types store the component specification list here. */
   mio_actual_arglist (&c->param_list, true);
 
   mio_symbol_attribute (&c->attr);
@@ -3666,6 +3666,9 @@ mio_expr (gfc_expr **ep)
       break;
     }
 
+  /* PDT types store the expression specification list here. */
+  mio_actual_arglist (&e->param_list, true);
+
   mio_rparen ();
 }
 
@@ -4321,6 +4324,9 @@ mio_symbol (gfc_symbol *sym)
   /* Load/save the f2k_derived namespace of a derived-type symbol.  */
   mio_full_f2k_derived (sym);
 
+  /* PDT types store the symbol specification list here. */
+  mio_actual_arglist (&sym->param_list, true);
+
   mio_namelist (sym);
 
   /* Add the fields that say whether this is from an intrinsic module,