diff --git a/testprograms/t1.f90 b/testprograms/EpsmacCheck.f90
similarity index 67%
rename from testprograms/t1.f90
rename to testprograms/EpsmacCheck.f90
index ca7801f3d2d3ff6796b0fe310a2681f3cd7fd43c..4324a6b075ca446b1b719236ad8d61b55ed41127 100644
--- a/testprograms/t1.f90
+++ b/testprograms/EpsmacCheck.f90
@@ -1,4 +1,4 @@
-program t1
+program EpsmacCheck
 
   double precision :: epsmac
 
@@ -7,7 +7,7 @@ program t1
   if (1.0d0 + epsmac > 1.0d0) goto 1
   write (*, *) 'epsmac:', epsmac
 
-! test whether this is a valid replacement
+! test whether these are valid replacements
   
   epsmac = 1.0d0
   do while (1.0d0 + epsmac > 1.0d0)
@@ -15,5 +15,6 @@ program t1
   enddo
   write (*, *) 'epsmac:', epsmac
 
+  write (*, *) 'epsmac:', epsilon(1.0d0)/2.0d0
   stop
-end program t1
\ No newline at end of file
+end program EpsmacCheck