anchor.diff:   INTEGER , INTENT(IN) :: j
    REAL :: f
   
  +
    f = 1.0 * i * j
   END FUNCTION f
   
  
positive.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
  
negative.code:  INTEGER :: iend = 10
   INTEGER :: jstart = 0
   INTEGER :: jend = 20
  
  
   CALL call_test ( istart , iend , jstart , jend )
  END PROGRAM claw_test
  