Add test for epsmac

testprograms/t1.f90 → testprograms/EpsmacCheck.f90

-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