Get rid of the warning about ignoring the return value of fgets
[cloog.git] / test / dartef.f
blob81ca031792ebaa40db1eb543d5e04e461c0b090c
1 ! Generated from ./dartef.cloog by CLooG 0.18.1-2-g43fc508 gmp bits in 0.03s.
2 IF (n >= 1) THEN
3 DO t3=n+3, 3*n+1
4 IF (MOD(t3+n+1, 2) == 0) THEN
5 S1(1,n,((t3-n-1)/2))
6 END IF
7 END DO
8 DO t1=-n+2, n-1
9 IF (t1 >= 0) THEN
10 DO t3=t1+4, t1+2*n+2
11 IF (MOD(t1+t3, 2) == 0) THEN
12 S1((t1+1),1,((-t1+t3-2)/2))
13 END IF
14 END DO
15 END IF
16 DO t2=MAX(-t1+2,t1+3), -t1+4
17 DO t3=t2+2, t2+2*n
18 IF (MOD(t1+t2, 2) == 0) THEN
19 IF (MOD(t1+t3, 2) == 0) THEN
20 S1(((t1+t2)/2),((-t1+t2)/2),((-t2+t3)/2))
21 END IF
22 END IF
23 END DO
24 END DO
25 DO t2=MAX(-t1+5,t1+3), MIN(-t1+2*n,t1+2*n)
26 DO t3=1, MIN(n,t2+1)
27 IF (MOD(t1+t2+1, 2) == 0) THEN
28 S2(((t1+t2-3)/2),((-t1+t2-1)/2),t3)
29 END IF
30 END DO
31 DO t3=t2+2, n
32 IF (MOD(t1+t2+1, 2) == 0) THEN
33 S2(((t1+t2-3)/2),((-t1+t2-1)/2),t3)
34 END IF
35 IF (MOD(t1+t2, 2) == 0) THEN
36 IF (MOD(t1+t3, 2) == 0) THEN
37 S1(((t1+t2)/2),((-t1+t2)/2),((-t2+t3)/2))
38 END IF
39 END IF
40 END DO
41 DO t3=MAX(n+1,t2+2), t2+2*n
42 IF (MOD(t1+t2, 2) == 0) THEN
43 IF (MOD(t1+t3, 2) == 0) THEN
44 S1(((t1+t2)/2),((-t1+t2)/2),((-t2+t3)/2))
45 END IF
46 END IF
47 END DO
48 END DO
49 IF (t1 <= -1) THEN
50 DO t3=1, n
51 S2((t1+n-1),n,t3)
52 END DO
53 END IF
54 DO t2=-t1+2*n+1, MIN(-t1+2*n+3,t1+2*n+1)
55 DO t3=1, n
56 IF (MOD(t1+t2+1, 2) == 0) THEN
57 S2(((t1+t2-3)/2),((-t1+t2-1)/2),t3)
58 END IF
59 END DO
60 END DO
61 END DO
62 DO t3=1, n
63 S2(n,1,t3)
64 END DO
65 END IF