diff options
| author | Dave Love <fx@gcc.gnu.org> | 1998-10-05 11:44:43 +0000 |
|---|---|---|
| committer | Dave Love <fx@gcc.gnu.org> | 1998-10-05 11:44:43 +0000 |
| commit | d88c06be2c4f712fe35750206f7b034f0275026a (patch) | |
| tree | 5bed40d809a2acb25a1a89f015159621eab037d5 /gcc | |
| parent | bd7aa7c3f7d7090308f350f0eb65a0cade3c24a6 (diff) | |
| download | gcc-d88c06be2c4f712fe35750206f7b034f0275026a.zip gcc-d88c06be2c4f712fe35750206f7b034f0275026a.tar.gz gcc-d88c06be2c4f712fe35750206f7b034f0275026a.tar.bz2 | |
Add regression test for RAND.
From-SVN: r22843
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/u77-test.f | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/u77-test.f b/gcc/testsuite/g77.f-torture/execute/u77-test.f index 07928fb..bcb3270 100644 --- a/gcc/testsuite/g77.f-torture/execute/u77-test.f +++ b/gcc/testsuite/g77.f-torture/execute/u77-test.f @@ -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') |