Commit 505cf15f by Toon Moene Committed by Toon Moene

20010430.f: New test.

2001-04-30  Toon Moene  <toon@moene.indiv.nluug.nl>

	* g77.f-torture/execute/20010430.f: New test.

From-SVN: r41695
parent b85381b9
2001-04-30 Toon Moene <toon@moene.indiv.nluug.nl>
* g77.f-torture/execute/20010430.f: New test.
2001-04-30 Mark Mitchell <mark@codesourcery.com> 2001-04-30 Mark Mitchell <mark@codesourcery.com>
* gcc.dg/20000724-1.c: Add a clobber of `esp'. * gcc.dg/20000724-1.c: Add a clobber of `esp'.
......
REAL DAT(2,5)
DO I = 1, 5
DAT(1,I) = I*1.6356-NINT(I*1.6356)
DAT(2,I) = I
ENDDO
DO I = 1, 4
DO J = I+1, 5
IF (DAT(1,J) - DAT(1,I) .LT. 0.0) THEN
DO K = 1, 2
TMP = DAT(K,I)
DAT(K,I) = DAT(K,J)
DAT(K,J) = TMP
ENDDO
ENDIF
ENDDO
ENDDO
DO I = 1, 4
IF (DAT(1,I) .GT. DAT(1,I+1)) CALL ABORT
ENDDO
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