testsuite ltime_gmtime tweak

Alan Modra amodra@gmail.com
Fri Jul 30 05:41:00 GMT 2010


I've had this in my tree for years, living as I do in one of the few
regions of the world so backward we have a half-hour timezone.  OK to
apply?

	* gfortran.dg/ltime_gmtime_1.f90: Tolerate half-hour timezones.
	* gfortran.dg/ltime_gmtime_2.f90: Likewise.

Index: gcc/testsuite/gfortran.dg/ltime_gmtime_1.f90
===================================================================
--- gcc/testsuite/gfortran.dg/ltime_gmtime_1.f90	(revision 162669)
+++ gcc/testsuite/gfortran.dg/ltime_gmtime_1.f90	(working copy)
@@ -5,5 +5,5 @@
   t = time()
   call ltime(t,x)
   call gmtime(t,y)
-  if (x(1) /= y(1) .or. x(2) /= y(2)) call abort
+  if (x(1) /= y(1) .or. mod(x(2),30) /= mod(y(2),30)) call abort
   end
Index: gcc/testsuite/gfortran.dg/ltime_gmtime_2.f90
===================================================================
--- gcc/testsuite/gfortran.dg/ltime_gmtime_2.f90	(revision 162669)
+++ gcc/testsuite/gfortran.dg/ltime_gmtime_2.f90	(working copy)
@@ -5,5 +5,5 @@
   t = time()
   call ltime(t,x)
   call gmtime(t,y)
-  if (x(1) /= y(1) .or. x(2) /= y(2)) call abort
+  if (x(1) /= y(1) .or. mod(x(2),30) /= mod(y(2),30)) call abort
   end

-- 
Alan Modra
Australia Development Lab, IBM



More information about the Fortran mailing list