diff options
Diffstat (limited to 'libgfortran/io/unix.c')
| -rw-r--r-- | libgfortran/io/unix.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c index 550ddab..93f4ea6 100644 --- a/libgfortran/io/unix.c +++ b/libgfortran/io/unix.c @@ -928,7 +928,8 @@ mem_truncate (unix_stream * s __attribute__ ((unused))) static try mem_close (unix_stream * s) { - free_mem (s); + if (s != NULL) + free_mem (s); return SUCCESS; } |