anchor.diff:            INTEGER(LIBXSMM_INT_KIND), INTENT(IN) :: m, n, k
             REAL(T), INTENT(IN) :: a(:,:), b(:,:)
             REAL(T), INTENT(INOUT) :: c(:,:)
  -          TYPE(C_PTR), INTENT(IN), VALUE, OPTIONAL :: pa, pb, pc
  +          REAL(T), INTENT(IN), OPTIONAL :: pa(*), pb(*), pc(*)
             INTEGER(LIBXSMM_INT_KIND), INTENT(IN), OPTIONAL :: flags
             REAL(T), INTENT(IN), OPTIONAL :: alpha, beta
             TYPE(LIBXSMM_SMM_FUNCTION) :: function
  
positive.code:           INTEGER(LIBXSMM_INT_KIND), INTENT(IN) :: lda, ldb, ldc
            REAL(LIBXSMM_FLS_KIND), INTENT(IN) :: alpha, beta
            INTEGER(LIBXSMM_INT_KIND), INTENT(IN) :: prefetch
            PROCEDURE(LIBXSMM_SXFUNCTION), POINTER :: fn1
            PROCEDURE(LIBXSMM_SFUNCTION), POINTER :: fn0
            IF (LIBXSMM_PREFETCH_NONE.NE.prefetch) THEN
              CALL C_F_PROCPOINTER(libxsmm_sdispatch1(                    &
       &        flags, m, n, k, lda, ldb, ldc, alpha, beta, prefetch),    &
  
negative.code:         ! Call a specialized function.
          INTERFACE libxsmm_call
            MODULE PROCEDURE                                              &
       &      libxsmm_scall_abx, libxsmm_dcall_abx,                       &
       &      libxsmm_scall_prx, libxsmm_dcall_prx,                       &
       &      libxsmm_scall_abc, libxsmm_dcall_abc,                       &
       &      libxsmm_scall_prf, libxsmm_dcall_prf
          END INTERFACE
  