From d88c06be2c4f712fe35750206f7b034f0275026a Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 5 Oct 1998 11:44:43 +0000 Subject: [PATCH] Add regression test for RAND. From-SVN: r22843 --- gcc/testsuite/g77.f-torture/execute/u77-test.f | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/gcc/testsuite/g77.f-torture/execute/u77-test.f b/gcc/testsuite/g77.f-torture/execute/u77-test.f index 07928fb3cb3..bcb3270baa5 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') -- 2.30.2