diff --git a/flang/test/Lower/dummy_io_implied_loop_test.f90 b/flang/test/Lower/dummy_io_implied_loop_test.f90
new file mode 100644
--- /dev/null
+++ b/flang/test/Lower/dummy_io_implied_loop_test.f90
@@ -0,0 +1,10 @@
+! RUN: bbc -emit-fir %s -o - | FileCheck %s
+! RUN: %flang_fc1 -emit-fir %s -o - | FileCheck %s
+
+
+! CHECK-LABEL: ido3
+subroutine ido3
+  integer :: j
+  write(*,*,err=404) (j,j=1,10)
+404 continue
+end subroutine