diff options
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index d5a9f54..b5b79d0 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -1700,6 +1700,7 @@ static const mstring binding_overriding[] = { minit ("OVERRIDABLE", 0), minit ("NON_OVERRIDABLE", 1), + minit ("DEFERRED", 2), minit (NULL, -1) }; static const mstring binding_generic[] = @@ -3205,6 +3206,7 @@ static void mio_typebound_proc (gfc_typebound_proc** proc) { int flag; + int overriding_flag; if (iomode == IO_INPUT) { @@ -3217,9 +3219,15 @@ mio_typebound_proc (gfc_typebound_proc** proc) (*proc)->access = MIO_NAME (gfc_access) ((*proc)->access, access_types); + /* IO the NON_OVERRIDABLE/DEFERRED combination. */ + gcc_assert (!((*proc)->deferred && (*proc)->non_overridable)); + overriding_flag = ((*proc)->deferred << 1) | (*proc)->non_overridable; + overriding_flag = mio_name (overriding_flag, binding_overriding); + (*proc)->deferred = ((overriding_flag & 2) != 0); + (*proc)->non_overridable = ((overriding_flag & 1) != 0); + gcc_assert (!((*proc)->deferred && (*proc)->non_overridable)); + (*proc)->nopass = mio_name ((*proc)->nopass, binding_passing); - (*proc)->non_overridable = mio_name ((*proc)->non_overridable, - binding_overriding); (*proc)->is_generic = mio_name ((*proc)->is_generic, binding_generic); if (iomode == IO_INPUT) |