anchor.diff:       &      MERGE(0, flags, .NOT.PRESENT(flags)),                       &
        &      MERGE(0, prefetch, .NOT.PRESENT(prefetch)),                 &
        &      alpha, beta)
  -          CALL C_F_PROCPOINTER(fn, libxsmm_dmm_function_abf%dmm2)
  +          CALL C_F_PROCPOINTER(fn, libxsmm_dmm_function_abf%fn2)
           END FUNCTION
   
           !DIR$ ATTRIBUTES OFFLOAD:MIC :: libxsmm_smm_function_all
  
positive.code:           END SUBROUTINE
            PURE SUBROUTINE LIBXSMM_SMM_FUNCTION1(a, b, c,                &
       &    pa, pb, pc) BIND(C)
              IMPORT :: C_FLOAT
              REAL(C_FLOAT), INTENT(IN) :: a(*), b(*)
              REAL(C_FLOAT), INTENT(INOUT) :: c(*)
              REAL(C_FLOAT), INTENT(IN) :: pa(*), pb(*), pc(*)
            END SUBROUTINE
            PURE SUBROUTINE LIBXSMM_DMM_FUNCTION1(a, b, c,                &
       &    pa, pb, pc) BIND(C)
              IMPORT :: C_DOUBLE
              REAL(C_DOUBLE), INTENT(IN) :: a(*), b(*)
              REAL(C_DOUBLE), INTENT(INOUT) :: c(*)
              REAL(C_DOUBLE), INTENT(IN) :: pa(*), pb(*), pc(*)
            END SUBROUTINE
            PURE SUBROUTINE LIBXSMM_SMM_FUNCTION2(a, b, c,                &
       &    pa, pb, pc, alpha, beta) BIND(C)
              IMPORT :: C_FLOAT
              REAL(C_FLOAT), INTENT(IN) :: a(*), b(*)
              REAL(C_FLOAT), INTENT(INOUT) :: c(*)
              REAL(C_FLOAT), INTENT(IN) :: pa(*), pb(*), pc(*)
              REAL(C_FLOAT), INTENT(IN), VALUE :: alpha, beta
            END SUBROUTINE
            PURE SUBROUTINE LIBXSMM_DMM_FUNCTION2(a, b, c,                &
       &    pa, pb, pc, alpha, beta) BIND(C)
              IMPORT :: C_DOUBLE
              REAL(C_DOUBLE), INTENT(IN) :: a(*), b(*)
              REAL(C_DOUBLE), INTENT(INOUT) :: c(*)
              REAL(C_DOUBLE), INTENT(IN) :: pa(*), pb(*), pc(*)
              REAL(C_DOUBLE), INTENT(IN), VALUE :: alpha, beta
            END SUBROUTINE
          END INTERFACE
  
negative.code:      &      MERGE(0, flags, .NOT.PRESENT(flags)),                       &
       &      MERGE(0, prefetch, .NOT.PRESENT(prefetch)),                 &
       &      alpha, beta)
            CALL C_F_PROCPOINTER(fn, libxsmm_smm_function_abf%fn2)
          END FUNCTION
          !DIR$ ATTRIBUTES OFFLOAD:MIC :: libxsmm_dmm_function_abf
          TYPE(LIBXSMM_DMM_FUNCTION)                                      &
  