anchor.diff:            END IF
             IF (LIBXSMM_PREFETCH_NONE.EQ.oprefetch) THEN
               construct_smmfunction = LIBXSMM_SMMFUNCTION(                &
  -     &        construct_fn0(sdispatch(m, n, k, lda, ldb, ldc,           &
  +     &        construct_fn3(sdispatch(m, n, k, lda, ldb, ldc,           &
        &          alpha, beta, flags, prefetch)), NULL())
             ELSE
               construct_smmfunction = LIBXSMM_SMMFUNCTION(                &
  -     &        NULL(), construct_fn1(sdispatch(m, n, k, lda, ldb, ldc,   &
  +     &        NULL(), construct_fn6(sdispatch(m, n, k, lda, ldb, ldc,   &
        &          alpha, beta, flags, prefetch)))
             END IF
           END FUNCTION
  
positive.code:         ! Type of a function specialized for a given parameter set.
          ABSTRACT INTERFACE
            ! Specialized function with fused alpha and beta arguments.
            PURE SUBROUTINE LIBXSMM_MMFUNCTION0(a, b, c) BIND(C)
              IMPORT :: C_PTR
              TYPE(C_PTR), INTENT(IN), VALUE :: a, b, c
            END SUBROUTINE
  
            ! Specialized function with alpha, beta, and prefetch arguments.
            PURE SUBROUTINE LIBXSMM_MMFUNCTION1(a, b, c,                  &
       &    pa, pb, pc) BIND(C)
              IMPORT :: C_PTR
              TYPE(C_PTR), INTENT(IN), VALUE :: a, b, c
  
negative.code:         IMPLICIT NONE
  
          PRIVATE ::  construct_smmfunction, construct_dmmfunction,       &
       &              construct_fn3, construct_fn6, srealptr, drealptr
  
          ! Name of the version (stringized set of version numbers).
          CHARACTER(*), PARAMETER :: LIBXSMM_VERSION = "$VERSION"
  