OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2004-07-17 Jeroen Frijters <jeroen@frijters.net>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
g77.f-torture
/
execute
/
20010430.f
1
REAL DAT(2,5)
2
DO I = 1, 5
3
DAT(1,I) = I*1.6356-NINT(I*1.6356)
4
DAT(2,I) = I
5
ENDDO
6
DO I = 1, 4
7
DO J = I+1, 5
8
IF (DAT(1,J) - DAT(1,I) .LT. 0.0) THEN
9
DO K = 1, 2
10
TMP = DAT(K,I)
11
DAT(K,I) = DAT(K,J)
12
DAT(K,J) = TMP
13
ENDDO
14
ENDIF
15
ENDDO
16
ENDDO
17
DO I = 1, 4
18
IF (DAT(1,I) .GT. DAT(1,I+1)) CALL ABORT
19
ENDDO
20
END