[gfortran] Patch to implement getenv g77 and get_environment_variable F2003 intrinsics

[Richard Henderson]

On Sat, Jul 17, 2004 at 02:54:29PM +0300, Janne Blomqvist wrote:
>   res = getenv(name_nt);
...
>   free(res);

RETURN VALUE
       The  getenv()  function  returns a pointer to the value in the environ-
       ment, or NULL if there is no match.

I.e. you're freeing a pointer that wasn't malloced.



r~