diff options
| author | Alan Modra <amodra@gmail.com> | 2010-07-30 16:26:17 +0930 |
|---|---|---|
| committer | Alan Modra <amodra@gcc.gnu.org> | 2010-07-30 16:26:17 +0930 |
| commit | 009ba7f5a34b7b2b9a9a45178ab7f80ad983b95b (patch) | |
| tree | f39a514d96180b4484c74a94bacf10526bccf777 | |
| parent | 2d0540e5d19952e41ac4879d5979b8e5d7cafd1e (diff) | |
| download | gcc-009ba7f5a34b7b2b9a9a45178ab7f80ad983b95b.zip gcc-009ba7f5a34b7b2b9a9a45178ab7f80ad983b95b.tar.gz gcc-009ba7f5a34b7b2b9a9a45178ab7f80ad983b95b.tar.bz2 | |
Tolerate half-hour timezones.
From-SVN: r162705
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/ltime_gmtime_1.f90 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/ltime_gmtime_2.f90 | 2 |
3 files changed, 7 insertions, 2 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 4dd9b5e..66a08b3 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-07-30 Alan Modra <amodra@gmail.com> + + * gfortran.dg/ltime_gmtime_1.f90: Tolerate half-hour timezones. + * gfortran.dg/ltime_gmtime_2.f90: Likewise. + 2010-07-29 Tobias Burnus <burnus@net-b.de> PR fortran/45087 diff --git a/gcc/testsuite/gfortran.dg/ltime_gmtime_1.f90 b/gcc/testsuite/gfortran.dg/ltime_gmtime_1.f90 index 9babbaf..cdbb973 100644 --- a/gcc/testsuite/gfortran.dg/ltime_gmtime_1.f90 +++ b/gcc/testsuite/gfortran.dg/ltime_gmtime_1.f90 @@ -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 diff --git a/gcc/testsuite/gfortran.dg/ltime_gmtime_2.f90 b/gcc/testsuite/gfortran.dg/ltime_gmtime_2.f90 index 870f011..c1480b7 100644 --- a/gcc/testsuite/gfortran.dg/ltime_gmtime_2.f90 +++ b/gcc/testsuite/gfortran.dg/ltime_gmtime_2.f90 @@ -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 |