This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

testsuite ltime_gmtime tweak


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


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]