Commit 2e647206 by Craig Burley Committed by Craig Burley

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

From-SVN: r26552
parent 5b916f26
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> Sat Apr 17 16:56:48 1999 Richard Henderson <rth@cygnus.com>
* gcc.dg/uninit-9.c (func): Use __builtin_alloca instead of alloca * gcc.dg/uninit-9.c (func): Use __builtin_alloca instead of alloca
......
* 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
* 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
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment