! C の sprintf(3) とは大分違うので注意。
!

function DCStringCPrintf(fmt, i, r, d, L, s, n, c1, c2, c3) result(result)
    use dcstring_base, only: VSTRING
    use dc_types, only: string
    use dc_string, only: DCStringSPrintf
    implicit none
    character(len = string):: result
    character(*), intent(in):: fmt
    integer, intent(in), optional:: i(:), n(:)
    real, intent(in), optional:: r(:)
    double precision, intent(in), optional:: d(:)
    logical, intent(in), optional:: L(:)
    type(VSTRING), intent(in), optional:: s(:)
    character(*), intent(in), optional:: c1, c2, c3
continue
    call dcstringsprintf(result, fmt, i=i, r=r, d=d, L=L, s=s, n=n, &
        & c1=c1, c2=c2, c3=c3)
end function