diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2020-11-06 08:26:51 +0100 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2020-11-06 08:26:51 +0100 |
| commit | c283a711c850efaab4fe3bca5ef7200eb854bba1 (patch) | |
| tree | 3eaaf61088d215937aa958d505997e2ab10f59b3 /gcc/fortran/module.c | |
| parent | 32ee472864ada44ef05b2a3b087b8ce413bee282 (diff) | |
| download | gcc-c283a711c850efaab4fe3bca5ef7200eb854bba1.zip gcc-c283a711c850efaab4fe3bca5ef7200eb854bba1.tar.gz gcc-c283a711c850efaab4fe3bca5ef7200eb854bba1.tar.bz2 | |
Fortran: Fix type-decl for PDT / wrong-code pdt_14.f03 issue [PR97652]
Parameterized derived types are handled in a special way and start with 'Pdt'.
If the 'P' is not uppercase, gfc_get_derived_type (which calls
gfc_get_module_backend_decl) does not find the existing declaration and
builds a new type. The middle end then sees those types as being different
and nonalising, creating an endless loop for pdt_14.f03.
gcc/fortran/ChangeLog:
PR fortran/97652
* module.c (mio_symbol): Fix symbol name for pdt_type.
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 33e7df7..4c6ff22 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -4549,6 +4549,9 @@ mio_symbol (gfc_symbol *sym) mio_symbol_attribute (&sym->attr); + if (sym->attr.pdt_type) + sym->name = gfc_dt_upper_string (sym->name); + /* Note that components are always saved, even if they are supposed to be private. Component access is checked during searching. */ mio_component_list (&sym->components, sym->attr.vtype); |