anchor.diff:  C ON RETURN, ARRAY A IS UNCHANGED.
   C
         use iso_fortran_env
  +      implicit none
  +
  +      integer(int64) N,JDA
         INTEGER(int64) V(N),IU(20),IL(20)
         REAL(real64)   A(JDA)
  +      integer(int64) II,JJ,M,I,J,K,IJ,IV,IVT,KI,L
  +      REAL(real64)   T
  +
         II = 1
         JJ = N
         IF ( N .LE. 1 ) RETURN
  
positive.code:       V(K+1) = IV
        GO TO 100
        END
        end program
  
negative.code:       stop
        contains
  
        subroutine read_sukp_instance(fname, n, c, w, p)
  c*********************************************************************72
  c
  