diff options
Diffstat (limited to 'libgfortran/io/format.c')
| -rw-r--r-- | libgfortran/io/format.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/libgfortran/io/format.c b/libgfortran/io/format.c index 2c116d6fed4..401cd827d9c 100644 --- a/libgfortran/io/format.c +++ b/libgfortran/io/format.c @@ -1218,7 +1218,10 @@ parse_format (st_parameter_dt *dtp) free_format_hash_table (dtp->u.p.current_unit); return; } - save_parsed_format (dtp); + + /* TODO: Interim fix for PR40508. Revise this for PR40330. */ + if (!is_internal_unit(dtp)) + save_parsed_format (dtp); } |