diff options
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index eff482c..5d64fd1 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -1752,6 +1752,7 @@ static void mio_symbol_attribute (symbol_attribute *attr) { atom_type t; + unsigned ext_attr; mio_lparen (); @@ -1760,6 +1761,9 @@ mio_symbol_attribute (symbol_attribute *attr) attr->proc = MIO_NAME (procedure_type) (attr->proc, procedures); attr->if_source = MIO_NAME (ifsrc) (attr->if_source, ifsrc_types); attr->save = MIO_NAME (save_state) (attr->save, save_status); + ext_attr = attr->ext_attr; + mio_integer ((int *) &ext_attr); + attr->ext_attr = ext_attr; if (iomode == IO_OUTPUT) { |