Skip to content

Commit fa0dff8

Browse files
author
Thomas Koenig
committed
Do not dump non-interoperable types with -fc-prototypes.
gcc/fortran/ChangeLog: PR fortran/120107 * dump-parse-tree.cc (write_type): Do not dump non-interoperable types.
1 parent 814e29e commit fa0dff8

File tree

1 file changed

+3
-2
lines changed

1 file changed

+3
-2
lines changed

gcc/fortran/dump-parse-tree.cc

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -4415,10 +4415,11 @@ write_type (gfc_symbol *sym)
44154415
{
44164416
gfc_component *c;
44174417

4418-
/* Don't dump our iso c module, nor vtypes. */
4418+
/* Don't dump types that are not interoperable, our very own ISO C Binding
4419+
module, or vtypes. */
44194420

44204421
if (sym->from_intmod == INTMOD_ISO_C_BINDING || sym->attr.flavor != FL_DERIVED
4421-
|| sym->attr.vtype)
4422+
|| sym->attr.vtype || !sym->attr.is_bind_c)
44224423
return;
44234424

44244425
fprintf (dumpfile, "typedef struct %s {\n", sym->name);

0 commit comments

Comments
 (0)