Get rid of the warning about ignoring the return value of fgets
[cloog.git] / test / yosrf.f
blob2d8efad9ecd79c786f972442bb990ae34893d261
1 ! Generated from ../../../git/cloog/test/yosrf.cloog by CLooG 0.14.0-136-gb91ef26 gmp bits in 0.01s.
2 IF (n >= 2) THEN
3 DO j=2, n
4 S1(1,j)
5 END DO
6 DO proc=2, n-1
7 DO i=1, proc-1
8 DO j=i+1, n
9 S2(i,j,proc)
10 END DO
11 END DO
12 DO j=proc+1, n
13 S1(proc,j)
14 END DO
15 END DO
16 DO i=1, n-1
17 DO j=i+1, n
18 S2(i,j,n)
19 END DO
20 END DO
21 END IF