new tests, derived from bug-reports from Toon and Tim
From-SVN: r26552
This commit is contained in:
parent
5b916f262a
commit
2e6472064f
|
@ -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
|
||||
|
|
|
@ -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
|
|
@ -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
|
Loading…
Reference in New Issue