anchor.diff:            TYPE(C_FUNPTR) :: fn
             fn = libxsmm_ddispatch0(m, n, k, 0, 0, 0,                     &
        &      MERGE(0, flags, .NOT.PRESENT(flags)))
  -          CALL C_F_PROCPOINTER(fn, libxsmm_dmm_function_mnk%dmm0)
  +          CALL C_F_PROCPOINTER(fn, libxsmm_dmm_function_mnk%fn0)
           END FUNCTION
   
           TYPE(LIBXSMM_SMM_FUNCTION)                                      &
  
positive.code:           ENDIF
          END SUBROUTINE
  
          !!!!!!!!!!!!!!
        END MODULE
  
negative.code:           TYPE(C_FUNPTR) :: fn
            fn = libxsmm_sdispatch0(m, n, k, 0, 0, 0,                     &
       &      MERGE(0, flags, .NOT.PRESENT(flags)))
            CALL C_F_PROCPOINTER(fn, libxsmm_smm_function_mnk%fn0)
          END FUNCTION
          TYPE(LIBXSMM_DMM_FUNCTION)                                      &
       &  FUNCTION libxsmm_dmm_function_mnk(m, n, k, flags)
  