mirror of
https://review.haiku-os.org/buildtools
synced 2025-02-12 08:47:41 +01:00
5873a060ca
* these are dependencies for gcc 4 Graphite engine build. * CLooG 0.18.0 includes ISL 0.11.1 which is the backend that the build script enables. * PPL is needed by GCC build even if it isn't the chosen backend.
38 lines
640 B
Fortran
38 lines
640 B
Fortran
! Generated from ../../../git/cloog/test/levenshtein-1-2-3f.cloog by CLooG 0.14.0-136-gb91ef26 gmp bits in 0.11s.
|
|
S1(0,0)
|
|
S2(1,0)
|
|
S3(1,1)
|
|
DO i=2, N
|
|
S2(i,0)
|
|
DO j=1, i-1
|
|
S6(i,j)
|
|
END DO
|
|
S3(i,i)
|
|
END DO
|
|
S7(N+1,0)
|
|
DO j=1, N
|
|
S6(N+1,j)
|
|
S8(N+1,j)
|
|
END DO
|
|
DO i=N+2, 2*M-N-2
|
|
j = FLOOR(REAL(i-N-1)/REAL(2))
|
|
S7(i,j)
|
|
IF (MOD(i+N, 2) == 0) THEN
|
|
S5(i,(i-N)/2)
|
|
S8(i,(i-N)/2)
|
|
END IF
|
|
DO j=CEILING(REAL(i-N+1)/REAL(2)), FLOOR(REAL(i+N-1)/REAL(2))
|
|
S6(i,j)
|
|
S8(i,j)
|
|
END DO
|
|
IF (MOD(i+N, 2) == 0) THEN
|
|
S4(i,(i+N)/2)
|
|
S8(i,(i+N)/2)
|
|
END IF
|
|
END DO
|
|
DO i=2*M-N-1, 2*M-2
|
|
DO j=i-M+1, M-1
|
|
S6(i,j)
|
|
END DO
|
|
END DO
|