anchor.diff:  
     WRITE(*, "(A)") "Streamed... (auto-dispatched)"
     c(:,:) = 0
  -  !$OMP PARALLEL REDUCTION(+:c) PRIVATE(i, start) DEFAULT(NONE) SHARED(m, n, k, a, b, duration)
  -  ALLOCATE(tmp(libxsmm_align_value(libxsmm_ld(m,n),8,LIBXSMM_ALIGNMENT),libxsmm_ld(n,m)))
  +  !$OMP PARALLEL REDUCTION(+:c) PRIVATE(i, start) &
  +  !$OMP   DEFAULT(NONE) SHARED(m, n, k, ldc, nm, a, b, duration)
  +  ALLOCATE(tmp(ldc,nm))
     tmp(:,:) = 0
     !$OMP MASTER
     start = libxsmm_timer_tick()
  
positive.code:   READ(argv, "(I32)") check
  
    s = ISHFT(MAX(i, 0_8), 30) / ((m * k + k * n + m * n) * T)
  
    ALLOCATE(c(m,n))
    ALLOCATE(a(m,k,s))
    ALLOCATE(b(k,n,s))
  
    ! Initialize a, b
    !$OMP PARALLEL DO PRIVATE(i) DEFAULT(NONE) SHARED(a, b, m, n, k, s)
    DO i = 1, s
      CALL init(42, a(:,:,i), i - 1)
      CALL init(24, b(:,:,i), i - 1)
    END DO
    c(:,:) = 0
  
    WRITE(*, "(A,I0,A,I0,A,I0,A,I0)") "m=", m, " n=", n, " k=", k, " size=", UBOUND(a, 3)
  
  
negative.code:   REAL(T), ALLOCATABLE, TARGET, SAVE :: tmp(:,:)
    !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
  