[libfortran,committed] Fix PR31299, GETLOG intrinsic

[François-Xavier Coudert]

> # define GETLOG (getpwuid(geteuid())->pw_name)
>
> This will segfault if getpwuid returns NULL.

Doh, stupid me. Here's what I committed as rev. 124143.

FX
-------------- next part --------------
A non-text attachment was scrubbed...
Name: getlog.diff
Type: text/x-patch
Size: 2874 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20070425/733cfe3a/attachment.bin>