diff options
Diffstat (limited to 'libgfortran/intrinsics/tty.c')
| -rw-r--r-- | libgfortran/intrinsics/tty.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libgfortran/intrinsics/tty.c b/libgfortran/intrinsics/tty.c index 63c2a5e..93416f9 100644 --- a/libgfortran/intrinsics/tty.c +++ b/libgfortran/intrinsics/tty.c @@ -121,8 +121,10 @@ ttynam (char ** name, gfc_charlen_type * name_len, int unit) { *name_len = strlen (*name); *name = strdup (*name); + unlock_unit (u); return; } + unlock_unit (u); } *name_len = 0; |