We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 814e29e commit fa0dff8Copy full SHA for fa0dff8
gcc/fortran/dump-parse-tree.cc
@@ -4415,10 +4415,11 @@ write_type (gfc_symbol *sym)
4415
{
4416
gfc_component *c;
4417
4418
- /* Don't dump our iso c module, nor vtypes. */
+ /* Don't dump types that are not interoperable, our very own ISO C Binding
4419
+ module, or vtypes. */
4420
4421
if (sym->from_intmod == INTMOD_ISO_C_BINDING || sym->attr.flavor != FL_DERIVED
- || sym->attr.vtype)
4422
+ || sym->attr.vtype || !sym->attr.is_bind_c)
4423
return;
4424
4425
fprintf (dumpfile, "typedef struct %s {\n", sym->name);
0 commit comments