f951 segfaults for gfortran.dg/initialization_1.f90

[FX Coudert]

Independently of the discussion with Jerry and Paul, there is no need  
to check whether the argument for gfc_free_expr is NULL:

>  cleanup:
> -  gfc_free_expr (expr);
> +  if (expr)
> +    gfc_free_expr (expr);
>    gfc_free_expr (old);
>    return FAILURE;

It's already done inside gfc_free_expr(), as for all gfc_free_*  
functions.

FX

-- 
François-Xavier Coudert
http://www.homepages.ucl.ac.uk/~uccafco/