1 files changed, 28 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/flush_1.f90 b/gcc/testsuite/gfortran.dg/flush_1.f90
new file mode 100644
index 000000000..90875dc65
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/flush_1.f90
@@ -0,0 +1,28 @@
+! { dg-do run }
+! PR 22390 Implement flush statement
+program flush_1
+
+   character(len=256) msg
+   integer ios
+
+   open (unit=10, access='SEQUENTIAL', status='SCRATCH')
+
+   write (10, *) 42
+   flush 10
+
+   write (10, *) 42
+   flush(10)
+
+   write (10, *) 42
+   flush(unit=10, iostat=ios)
+   if (ios /= 0) call abort
+
+   write (10, *) 42
+   flush (unit=10, err=20)
+   goto 30
+20 call abort
+30 continue
+
+   call flush(10)
+
+end program flush_1