[PATCH, libfortran] PR 47007, 61847 Locale failures in libgfortran

[Jakub Jelinek]

On Wed, Nov 05, 2014 at 12:48:01PM +0200, Janne Blomqvist wrote:
> @@ -3528,6 +3533,11 @@ finalize_transfer (st_parameter_dt *dtp)
>    if ((dtp->common.flags & IOPARM_DT_HAS_SIZE) != 0)
>      *dtp->size = dtp->u.p.size_used;
>  
> +#ifdef HAVE_USELOCALE
> +  if (dtp->u.p.old_locale != (locale_t) 0)
> +    uselocale (dtp->u.p.old_locale);
> +#endif

I wonder if you shouldn't clear dtp->u.p.old_locale here too, so
that uselocale isn't called again.

	Jakub