[patch, libfortran] PR40508 Memory Leak

[Tobias Burnus]

Jerry DeLisle wrote:
> In the meantime, OK to commit the following to trunk in the interim?
The patch is OK - but please add a comment as Steven suggested.

Tobias

> 2009-06-21  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
>
>     PR libfortran/40508
>     * io/format.c: Don't save parsed format data for internal units.
>
> Index: format.c
> ===================================================================
> --- format.c    (revision 148448)
> +++ format.c    (working copy)
> @@ -1218,7 +1218,8 @@ parse_format (st_parameter_dt *dtp)
>        free_format_hash_table (dtp->u.p.current_unit);
>        return;
>      }
> -  save_parsed_format (dtp);
> +  if (!is_internal_unit (dtp))
> +    save_parsed_format (dtp);
>  }
>