diff --git a/testprograms/t1.f90 b/testprograms/t1.f90
new file mode 100644
index 0000000000000000000000000000000000000000..ca7801f3d2d3ff6796b0fe310a2681f3cd7fd43c
--- /dev/null
+++ b/testprograms/t1.f90
@@ -0,0 +1,19 @@
+program t1
+
+  double precision :: epsmac
+
+  epsmac = 1.0d0
+1 epsmac = epsmac / 2.0d0
+  if (1.0d0 + epsmac > 1.0d0) goto 1
+  write (*, *) 'epsmac:', epsmac
+
+! test whether this is a valid replacement
+  
+  epsmac = 1.0d0
+  do while (1.0d0 + epsmac > 1.0d0)
+    epsmac = epsmac / 2.0d0
+  enddo
+  write (*, *) 'epsmac:', epsmac
+
+  stop
+end program t1
\ No newline at end of file