git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/64432 (SYSTEM_CLOCK(COUNT_RATE=rate) wrong result for integer(4)::rate) 

2015-03-16 Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/64432
	* gfortran.dg/system_clock_3.f08: New test.

From-SVN: r221473
This commit is contained in:
Jerry DeLisle 2015-03-17 01:22:12 +00:00
parent d4b35ef74c
commit 448c7e2525
2 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2015-03-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/64432
* gfortran.dg/system_clock_3.f08: New test.
2015-03-16 Edward Smith-Rowland <3dw4rd@verizon.net>
PR c++/64626

22
gcc/testsuite/gfortran.dg/system_clock_3.f08 Normal file
View File

@ -0,0 +1,22 @@
! { dg-do run }
! PR64432
program countem
implicit none
integer(1) :: count1, irate1, mymax1
integer(2) :: count2, irate2, mymax2
integer(4) :: count4, irate4, mymax4
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
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
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
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
call system_clock(count=count4, count_rate=irate4, count_max=mymax4)
if (rrate4.ne.1000.and.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
end program countem