From 56abc7f7923d68dea6643cf4462ce778f87d94b9 Mon Sep 17 00:00:00 2001 From: pault Date: Sun, 8 Oct 2017 15:23:24 +0000 Subject: [PATCH] 2017-10-08 Paul Thomas 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@253526 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 8 ++++++++ gcc/fortran/module.c | 10 ++++++++-- 2 files changed, 16 insertions(+), 2 deletions(-) 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 + + 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 * 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, -- 2.11.4.GIT