diff options
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 7b8e863..d42ab47 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -2125,6 +2125,7 @@ DECL_MIO_NAME (procedure_type) DECL_MIO_NAME (ref_type) DECL_MIO_NAME (sym_flavor) DECL_MIO_NAME (sym_intent) +DECL_MIO_NAME (inquiry_type) #undef DECL_MIO_NAME /* Symbol attributes are stored in list with the first three elements @@ -3140,6 +3141,15 @@ static const mstring ref_types[] = { minit ("ARRAY", REF_ARRAY), minit ("COMPONENT", REF_COMPONENT), minit ("SUBSTRING", REF_SUBSTRING), + minit ("INQUIRY", REF_INQUIRY), + minit (NULL, -1) +}; + +static const mstring inquiry_types[] = { + minit ("RE", INQUIRY_RE), + minit ("IM", INQUIRY_IM), + minit ("KIND", INQUIRY_KIND), + minit ("LEN", INQUIRY_LEN), minit (NULL, -1) }; @@ -3170,6 +3180,10 @@ mio_ref (gfc_ref **rp) mio_expr (&r->u.ss.end); mio_charlen (&r->u.ss.length); break; + + case REF_INQUIRY: + r->u.i = MIO_NAME (inquiry_type) (r->u.i, inquiry_types); + break; } mio_rparen (); |