aboutsummaryrefslogtreecommitdiff
path: root/gcc/fortran/trans-decl.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/fortran/trans-decl.c')
-rw-r--r--gcc/fortran/trans-decl.c6
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index 7bd912e..1420737 100644
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -1788,6 +1788,12 @@ gfc_create_module_variable (gfc_symbol * sym)
&& (sym->attr.flavor != FL_PARAMETER || sym->attr.dimension == 0))
return;
+ if (sym->attr.flavor == FL_VARIABLE && sym->ts.type == BT_UNKNOWN)
+ /* TODO: This is a workaround for the issue outlined in PR 15481,
+ and it fixes the bug in PR13372. This should never happen in an
+ ideal frontend. */
+ return;
+
/* Don't generate variables from other modules. */
if (sym->attr.use_assoc)
return;