diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2017-10-08 15:23:24 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2017-10-08 15:23:24 +0000 |
| commit | 1741160c2f0388888f88ac7013d602b59690f57c (patch) | |
| tree | a110405566090cc397587a74f378d1aa6e40d295 /gcc | |
| parent | cebb191903d3562d848b70dd51060b05e92435b9 (diff) | |
| download | gcc-1741160c2f0388888f88ac7013d602b59690f57c.zip gcc-1741160c2f0388888f88ac7013d602b59690f57c.tar.gz gcc-1741160c2f0388888f88ac7013d602b59690f57c.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/fortran/module.c | 10 |
2 files changed, 16 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 18edd11..37a2980 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 3f19a02..16585a9 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, |