[Patch, fortran] PR29101 - Memory leak in select case with character expression

[Steven Bosscher]

On Monday 18 September 2006 19:14, Paul Thomas wrote:
> pstr.6 = (char[1:D.960] *) _gfortran_internal_malloc (D.960);
> tolower (pstr.6, D.960, D.958, D.959);
> goto _gfortran_select_string ((void *) &jumptable.5, 2, &L.5, pstr.6,
> D.960);
> _gfortran_internal_free ((void *) pstr.6);      /* This was absent. */

How does it help to add this here?

After the goto, I mean? ;-)


Gr.
Steven


> L.4:;
> *value = 1;
> goto L.5;
> L.3:;
> __result_validate_value = 0;
> goto L.5;
> L.5:;