anchor.diff:       &        b, MAX(SIZE(b, 2), n), a, MAX(SIZE(a, 2), k),             &
        &        MERGE(REAL(LIBXSMM_BETA, T), beta, .NOT.PRESENT(beta)),   &
        &        c, MAX(SIZE(c, 1), n))
  -          ENDIF
  +          END IF
           END SUBROUTINE
   
           ! Non-dispatched matrix multiplication using BLAS (double-precision).
  
positive.code:         END SUBROUTINE
  
          ! Non-dispatched matrix multiplication using BLAS (single-precision).
          !DIR$ ATTRIBUTES OFFLOAD:MIC :: libxsmm_dblasmm_ab
          SUBROUTINE libxsmm_dblasmm_ab(                                  &
       &  m, n, k, a, b, c, dalpha, dbeta, flags)
            INTEGER(LIBXSMM_INT_KIND), PARAMETER :: T = LIBXSMM_FLD_KIND
            INTEGER(LIBXSMM_INT_KIND), INTENT(IN) :: m, n, k
  
negative.code:         ! Generic function type constructing a procedure pointer
          ! associated with a backend function.
          TYPE :: LIBXSMM_SMM_FUNCTION
            PROCEDURE(LIBXSMM_SFUNCTION), NOPASS, POINTER ::              &
       &      fn0 => NULL()
            PROCEDURE(LIBXSMM_SXFUNCTION), NOPASS, POINTER ::             &
       &      fn1 => NULL()
          END TYPE
  
          ! Generic function type constructing a procedure pointer
          ! associated with a backend function.
          TYPE :: LIBXSMM_DMM_FUNCTION
            PROCEDURE(LIBXSMM_DFUNCTION), NOPASS, POINTER ::              &
       &      fn0 => NULL()
            PROCEDURE(LIBXSMM_DXFUNCTION), NOPASS, POINTER ::             &
       &      fn1 => NULL()
          END TYPE
  
          ! Construct procedure pointer depending on given argument set.
          INTERFACE libxsmm_sdispatch
            MODULE PROCEDURE                                              &
       &      libxsmm_sfunction0, libxsmm_sfunction1
          END INTERFACE
  
          ! Construct procedure pointer depending on given argument set.
          INTERFACE libxsmm_ddispatch
            MODULE PROCEDURE                                              &
       &      libxsmm_dfunction0, libxsmm_dfunction1
          END INTERFACE
  
          ! Construct procedure pointer depending on given argument set.
          INTERFACE libxsmm_dispatch
            MODULE PROCEDURE                                              &
       &      libxsmm_sdispatch_mnk, libxsmm_ddispatch_mnk,               &
       &      libxsmm_sdispatch_all, libxsmm_ddispatch_all
          END INTERFACE
  
          ! Check if a function (LIBXSMM_?MM_FUNCTION_TYPE) is available.
  