[Bug testsuite/116701] [15 Regression] gfortran.dg/write_check3.f90 suddenly fails for non-fd_truncate targets

[anlauf at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=116701

--- Comment #3 from anlauf at gcc dot gnu.org ---
I meant:

diff --git a/gcc/testsuite/gfortran.dg/unsigned_22.f90
b/gcc/testsuite/gfortran.dg/unsigned_22.f90
index bc2f810238d..17ebb973cf1 100644
--- a/gcc/testsuite/gfortran.dg/unsigned_22.f90
+++ b/gcc/testsuite/gfortran.dg/unsigned_22.f90
@@ -22,4 +22,5 @@ program memain
   read (10,*,iostat=iostat,iomsg=iomsg) u
   if (iostat == 0) error stop 7
   if (iomsg /= "Unsigned integer overflow while reading item 1 of list input")
error stop 8
+  close(10, status="delete")
  end program memain