* check.c (gfc_check_getcwd_sub): Fix seg fault.