Add early return for invalid STATUS for close.
authorThomas Koenig <tkoenig@gcc.gnu.org>
Thu, 14 May 2020 16:30:27 +0000 (18:30 +0200)
committerThomas Koenig <tkoenig@gcc.gnu.org>
Thu, 14 May 2020 16:33:24 +0000 (18:33 +0200)
commitcdc34b505796327b3eee9e97bc5f27ba71fd9e7a
tree479abea4f28b9b3d1593a4b360e307dde3210f8f
parent8d286dd118a5bd16f7ae0fb9dfcdcfd020bea803
Add early return for invalid STATUS for close.

2020-05-14  Thomas Koenig  <tkoenig@gcc.gnu.org>

PR libfortran/95119
* io/close.c (close_status): Add CLOSE_INVALID.
(st_close): Return early on invalid STATUS parameter.

2020-05-14  Thomas Koenig  <tkoenig@gcc.gnu.org>

PR libfortran/95119
* testsuite/libgomp.fortran/close_errors_1.f90: New test.
libgfortran/ChangeLog
libgfortran/io/close.c
libgomp/ChangeLog
libgomp/testsuite/libgomp.fortran/close_errors_1.f90 [new file with mode: 0644]