anchor.diff:    !$OMP MASTER
     duration = libxsmm_timer_duration(start, libxsmm_timer_tick())
     !$OMP END MASTER
  -  !$OMP CRITICAL
     c(:,:) = c(:,:) + tmp(:UBOUND(c,1),:)
  -  !$OMP END CRITICAL
     ! Deallocate thread-local arrays
     DEALLOCATE(tmp)
     !$OMP END PARALLEL
  
positive.code:   ELSE
      i = 2 ! 2 GByte for A and B (and C, but this currently not used by the F90 test)
    END IF
    s = ISHFT(MAX(i, 0_8), 30) / ((m * k + k * n + m * n) * T)
  
    ALLOCATE(c(m,n))
  
negative.code:   IF (0.NE.check) THEN
      WRITE(*, "(1A,A,F10.1,A)") CHAR(9), "diff:       ", MAXVAL((c(:,:) - d(:,:)) * (c(:,:) - d(:,:)))
    END IF
  
    CALL libxsmm_dispatch(xmm, m, n, k)
    IF (libxsmm_available(xmm)) THEN
      c(:,:) = 0
      WRITE(*, "(A)") "Streamed... (specialized)"
      !$OMP PARALLEL REDUCTION(+:c) PRIVATE(i, start) !DEFAULT(NONE) SHARED(m, n, a, b, duration, xmm)
      ALLOCATE(tmp(libxsmm_align_value(libxsmm_ld(m,n),8,LIBXSMM_ALIGNMENT),libxsmm_ld(n,m)))
      tmp(:,:) = 0
      !$OMP MASTER
      start = libxsmm_timer_tick()
      !$OMP END MASTER
      !$OMP DO
      DO i = LBOUND(a, 3), UBOUND(a, 3)
        !CALL libxsmm_call(xmm, a(:,:,i), b(:,:,i), tmp) ! gfortran issue
        CALL libxsmm_dcall_abc(xmm, a(:,:,i), b(:,:,i), tmp)
      END DO
      !$OMP MASTER
      duration = libxsmm_timer_duration(start, libxsmm_timer_tick())
      !$OMP END MASTER
      c(:,:) = c(:,:) + tmp(:UBOUND(c,1),:)
      ! Deallocate thread-local arrays
      DEALLOCATE(tmp)
      !$OMP END PARALLEL
  