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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 12324f0..9b252b0 100644 (file)
--- 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 (file)
--- 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