test/levenshtein-1-2-3f.f

   1 ! Generated by CLooG v0.10.7
   2 S1(i = 0,j = 0)
   3 S2(i = 1,j = 0)
   4 S3(i = 1,j = 1)
   5 DO i=2, N
   6   S2(j = 0)
   7   DO j=1, i-1
   8     S6
   9   END DO
  10   S3(j = i)
  11 END DO
  12 i = N+1
  13 S7(j = 0)
  14 DO j=1, N
  15   S6
  16   S8
  17 END DO
  18 DO i=N+2, 2*M-N-2
  19   DO j=CEILING(REAL(i-N-2)/REAL(2)), FLOOR(REAL(i-N-1)/REAL(2))
  20     S7
  21   END DO
  22   IF (MOD(i-N,2) == 0) THEN
  23     j = (i-N)/2
  24     S5
  25     S8
  26   END IF
  27   DO j=CEILING(REAL(i-N+1)/REAL(2)), FLOOR(REAL(i+N-1)/REAL(2))
  28     S6
  29     S8
  30   END DO
  31   IF (MOD(i+N,2) == 0) THEN
  32     j = (i+N)/2
  33     S4
  34     S8
  35   END IF
  36 END DO
  37 DO i=2*M-N-1, 2*M-2
  38   DO j=i-M+1, M-1
  39     S6
  40   END DO
  41 END DO