anchor.diff:   INTEGER :: iend = 10
    INTEGER :: jstart = 0
    INTEGER :: jend = 20
  +
   
    CALL call_test ( istart , iend , jstart , jend )
   END PROGRAM claw_test
  
positive.code:  INTEGER , INTENT(IN) :: j
   REAL :: f
  
   f = 1.0 * i * j
  END FUNCTION f
  
  
negative.code:  INTEGER :: j
   REAL :: array6 ( istart : iend , istart : iend )
   REAL :: array7 ( istart : iend , istart : iend )
  
  
  
   DO i = istart , iend , 1
    DO j = jstart , jend , 1
  