anchor.diff:    
     IF (result) THEN
       IF (.NOT. ftg_cmp_quiet .AND. ftg_cmp_print_when_equal) THEN
  -      WRITE (*,'(A,A,A,A)') TRIM(ftg_cmp_message_prefix), " ", TRIM(fieldname_print), " : OK"
  +      WRITE (*,'(A,A,A,A,I19,A)') TRIM(ftg_cmp_message_prefix), " ", TRIM(fieldname_print), " : OK (", field, ")"
       END IF
     ELSE
       IF (PRESENT(failure_count)) THEN
  
positive.code:   
    IF (result) THEN
      IF (.NOT. ftg_cmp_quiet .AND. ftg_cmp_print_when_equal) THEN
        WRITE (*,'(A,A,A,A)') TRIM(ftg_cmp_message_prefix), " ", TRIM(fieldname_print), " : OK"
      END IF
    ELSE
      IF (PRESENT(failure_count)) THEN
  
negative.code:   
    IF (result) THEN
      IF (.NOT. ftg_cmp_quiet .AND. ftg_cmp_print_when_equal) THEN
        WRITE (*,'(A,A,A,A,F0.14,A)') TRIM(ftg_cmp_message_prefix), " ", TRIM(fieldname_print), " : OK (", field, ")"
      END IF
    ELSE
      IF (PRESENT(failure_count)) THEN
  