anchor.diff:      DEALLOCATE(tmp)
       !$OMP END PARALLEL
       CALL performance(duration, m, n, k, s)
  -    IF (0.NE.check) THEN
  -      WRITE(*, "(1A,A,F10.1,A)") CHAR(9), "diff:       ", MAXVAL((c(:,:) - d(:,:)) * (c(:,:) - d(:,:)))
  -    END IF
  +    WRITE(*, "(1A,A,F10.1,A)") CHAR(9), "diff:       ", MAXVAL((c(:,:) - d(:,:)) * (c(:,:) - d(:,:)))
     END IF
   
     ! Deallocate global arrays
  
positive.code:   !DIR$ ATTRIBUTES ALIGN:LIBXSMM_ALIGNMENT :: a, b, c, tmp
    !$OMP THREADPRIVATE(tmp)
    TYPE(LIBXSMM_DMM_FUNCTION) :: xmm
    INTEGER :: argc, m, n, k, mn, nm, ldc, check
    INTEGER(8) :: i, s, start
    CHARACTER(32) :: argv
    REAL(8) :: duration
  
negative.code:   DEALLOCATE(tmp)
    !$OMP END PARALLEL
    CALL performance(duration, m, n, k, s)
    WRITE(*, "(1A,A,F10.1,A)") CHAR(9), "diff:       ", MAXVAL((c(:,:) - d(:,:)) * (c(:,:) - d(:,:)))
  
    CALL libxsmm_dispatch(xmm, m, n, k)
    IF (libxsmm_available(xmm)) THEN
  