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