OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

new tests, derived from bug-reports from Toon and Tim 

From-SVN: r26552
This commit is contained in:
Craig Burley 1999-04-19 21:29:25 +00:00 committed by Craig Burley
parent 5b916f262a
commit 2e6472064f
3 changed files with 33 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 @@
1999-04-20 Craig Burley <craig@jcb-sc.com>
* g77.f-torture/compile/19990419-0.f: New test.
* g77.f-torture/execute/19990419-1.f: New test.
Sat Apr 17 16:56:48 1999 Richard Henderson <rth@cygnus.com>
* gcc.dg/uninit-9.c (func): Use __builtin_alloca instead of alloca

7
gcc/testsuite/g77.f-torture/compile/19990419-0.f Normal file
View File

@ -0,0 +1,7 @@
* Test case Toon submitted, cut down to expose the one bug.
* Belongs in compile/.
SUBROUTINE INIERS1
IMPLICIT LOGICAL(L)
COMMON/COMIOD/ NHIERS1, LERS1
inquire(nhiers1, exist=lers1)
END

21
gcc/testsuite/g77.f-torture/execute/19990419-1.f Normal file
View File

@ -0,0 +1,21 @@
* Test DO WHILE, to make sure it fully reevaluates its expression.
* Belongs in execute/.
common /x/ ival
j = 0
do while (i() .eq. 1)
j = j + 1
if (j .gt. 5) call abort
end do
if (j .ne. 4) call abort
if (ival .ne. 5) call abort
end
function i()
common /x/ ival
ival = ival + 1
i = 10
if (ival .lt. 5) i = 1
end
block data
common /x/ ival
data ival/0/
end