diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2015-03-18 01:47:12 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2015-03-18 01:47:12 +0000 |
| commit | 4d1de54341f3d58260b7b11fabb95a0c5cd0e0b7 (patch) | |
| tree | cd29eca85914cd522f1b3e7e26c84c3eaec44d3c /gcc | |
| parent | 3a6e2907c894b4bb56f1f41c88a2bdda85b534ce (diff) | |
| download | gcc-4d1de54341f3d58260b7b11fabb95a0c5cd0e0b7.zip gcc-4d1de54341f3d58260b7b11fabb95a0c5cd0e0b7.tar.gz gcc-4d1de54341f3d58260b7b11fabb95a0c5cd0e0b7.tar.bz2 | |
re PR fortran/64432 (SYSTEM_CLOCK(COUNT_RATE=rate) wrong result for integer(4)::rate)
2015-03-17 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/64432
* gfortran.dg/system_clock_3.f08: Adjust test.
From-SVN: r221482
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/system_clock_3.f08 | 12 |
2 files changed, 11 insertions, 6 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 12324f0..9b252b0 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2015-03-17 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/64432 + * gfortran.dg/system_clock_3.f08: Adjust test. + 2014-03-17 Paul Thomas <pault@gcc.gnu.org> PR fortran/59198 diff --git a/gcc/testsuite/gfortran.dg/system_clock_3.f08 b/gcc/testsuite/gfortran.dg/system_clock_3.f08 index 195bdc4..7b82244 100644 --- a/gcc/testsuite/gfortran.dg/system_clock_3.f08 +++ b/gcc/testsuite/gfortran.dg/system_clock_3.f08 @@ -8,15 +8,15 @@ program countem real(4) :: rrate4 call system_clock(count=count1, count_rate=irate4, count_max=mymax4) - if (count1.ne.-127.and.irate4.ne.0.and.mymax4.ne.0) call abort + if (count1.ne.-127.or.irate4.ne.0.or.mymax4.ne.0) call abort call system_clock(count=count1, count_rate=rrate4, count_max=mymax1) - if (count1.ne.-127.and.rrate4.ne.0.0.and.mymax4.ne.0) call abort + if (count1.ne.-127.or.rrate4.ne.0.0.or.mymax4.ne.0) call abort call system_clock(count=count2, count_rate=irate2, count_max=mymax2) - if (count2.ne.-32767.and.irate2.ne.0.and.mymax2.ne.0) call abort + if (count2.ne.-32767.or.irate2.ne.0.or.mymax2.ne.0) call abort call system_clock(count=count2, count_rate=rrate4, count_max=mymax2) - if (count2.ne.-32767.and.rrate4.ne.0.0.and.mymax2.ne.0) call abort + if (count2.ne.-32767.or.rrate4.ne.0.0.or.mymax2.ne.0) call abort call system_clock(count=count4, count_rate=irate4, count_max=mymax4) - if (rrate4.ne.1000.and.mymax4.ne.huge(0_4)) call abort + if (irate4.ne.1000.or.mymax4.ne.huge(0_4)) call abort call system_clock(count=count4, count_rate=rrate4, count_max=mymax4) - if (rrate4.ne.1000.0.and.mymax4.ne.huge(0_4)) call abort + if (rrate4.ne.1000.0.or.mymax4.ne.huge(0_4)) call abort end program countem |