mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-24 05:48:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Add regression test for RAND.

Browse Source 
From-SVN: r22843
This commit is contained in:
Dave Love 1998-10-05 11:44:43 +00:00
parent bd7aa7c3f7
commit d88c06be2c
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/g77.f-torture/execute/u77-test.f
View File

@ -147,6 +147,11 @@ c now try to get times to change enough to see in etime/dtime
call dumdum(r1)
call second(r1)
write (6,*) 'CALL SECOND returns: ', r1
* compiler crash fixed by 1998-10-01 com.c change
if (rand(0).lt.0.0 .or. rand(0).gt.1.0) then
write (6,*) '*** rand(0) error'
call abort()
end if
i = getcwd(wd)
if (i.ne.0) then
call perror ('*** getcwd')