From cdc34b505796327b3eee9e97bc5f27ba71fd9e7a Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Thu, 14 May 2020 18:30:27 +0200 Subject: [PATCH] Add early return for invalid STATUS for close. 2020-05-14 Thomas Koenig PR libfortran/95119 * io/close.c (close_status): Add CLOSE_INVALID. (st_close): Return early on invalid STATUS parameter. 2020-05-14 Thomas Koenig PR libfortran/95119 * testsuite/libgomp.fortran/close_errors_1.f90: New test. --- libgfortran/ChangeLog | 10 ++++++++++ libgfortran/io/close.c | 8 +++++++- libgomp/ChangeLog | 13 +++++++++++++ .../libgomp.fortran/close_errors_1.f90 | 19 +++++++++++++++++++ 4 files changed, 49 insertions(+), 1 deletion(-) create mode 100644 libgomp/testsuite/libgomp.fortran/close_errors_1.f90 diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 1cbdaf393fb3..476a41921f39 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,13 @@ +2020-05-14 Thomas Koenig + + PR libfortran/95119 + * io/close.c (close_status): Add CLOSE_INVALID. + (st_close): Return early on invalid STATUS parameter. + +2020-05-14 H.J. Lu + + * configure: Regenerated. + 2020-05-14 H.J. Lu * configure: Regenerated. diff --git a/libgfortran/io/close.c b/libgfortran/io/close.c index 8aaa00393e70..17e064ba4e8d 100644 --- a/libgfortran/io/close.c +++ b/libgfortran/io/close.c @@ -31,7 +31,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #endif typedef enum -{ CLOSE_DELETE, CLOSE_KEEP, CLOSE_UNSPECIFIED } +{ CLOSE_INVALID = - 1, CLOSE_DELETE, CLOSE_KEEP, CLOSE_UNSPECIFIED } close_status; static const st_option status_opt[] = { @@ -61,6 +61,12 @@ st_close (st_parameter_close *clp) find_option (&clp->common, clp->status, clp->status_len, status_opt, "Bad STATUS parameter in CLOSE statement"); + if (status == CLOSE_INVALID) + { + library_end (); + return; + } + u = find_unit (clp->common.unit); if (ASYNC_IO && u && u->au) diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index 8a66266d7c6f..3339ffb3b222 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,3 +1,16 @@ +2020-05-14 Thomas Koenig + + PR libfortran/95119 + * testsuite/libgomp.fortran/close_errors_1.f90: New test. + +2020-05-14 H.J. Lu + + * configure: Regenerated. + +2020-05-14 Jakub Jelinek + + * testsuite/libgomp.c-c++-common/target-40.c: New test. + 2020-05-14 H.J. Lu * configure: Regenerated. diff --git a/libgomp/testsuite/libgomp.fortran/close_errors_1.f90 b/libgomp/testsuite/libgomp.fortran/close_errors_1.f90 new file mode 100644 index 000000000000..6edb7da4116f --- /dev/null +++ b/libgomp/testsuite/libgomp.fortran/close_errors_1.f90 @@ -0,0 +1,19 @@ +! { dg-do run } +! PR 95115 - this used to hang with -pthread. Original test case by +! Bill Long. + +program test + character(len=16) my_status + character(len=1000) :: iomsg + open (unit=10, file='test.dat') + print *,42 + write (10, *) 'weird' + rewind (10) + read (10, *) my_status + close (10) + open (unit=10, file='test.dat') + close (unit=10, status=my_status, iostat=ios, iomsg=iomsg) + if (ios == 0) stop 1 + if (iomsg /= "Bad STATUS parameter in CLOSE statement") stop 2 + close (10, status='delete') +end program test -- 2.39.5