・アイコンファイル欄に指定したファイルが存在しない。
・.icoでない拡張子のファイル名を指定。

・行末に不要な「;(セミコロン)」
・class c()の括弧忘れ
・?(,)の ?と(の間にスペースを入れてしまっている。
・breakやcontinueの後にブロック名忘れ。
・その他

func Main()
    class c()
        +var a
    end class
end func

func Main()
    class c()
        var a
    end class
end func

func Main()
    class c()
        -const n: int :: 1
    end class
end func

func Main()
    class c()
        const n: int :: 1
    end class
end func

func Main()
    enum e
    end func
end func

func Main()
    enum e
    end enum
end func

func Main()
    f() {doを忘れている}
    func f()
    end func
end func

func Main()
    do f()
    func f()
    end func
end func

func Main()
    if(true)
    else {elseが2つ以上ある}
    else
    end if
end func

func Main()
    if(true)
    elif(true)
    else
    end if
end func

func Main()
    elif(true)
    end if
end func

func Main()
    if(true)
    end if
end func

func Main()
    ifdef(rls)
    else
    end ifdef
end func

func Main()
    ifdef(rls)
    end ifdef
    ifdef(dbg)
    end ifdef
end func

func Main()
    switch(1)
        {switchの直後、case節の前に文がある}
        do Dbg@Log("switch")
    case(1)
    end switch
end func

func Main()
    {switchの手前に書けば問題なし}
    do Dbg@Log("switch")
    switch(1)
    case(1)
    end switch
end func

func Main()
    if (true)
    case
    end if
end func

func Main()
    if (true)
    else
    end if
end func

func Main()
    if (true)
    default
    end if
end func

func Main()
    if (true)
    else
    end if
end func

func Main()
    while(true, true)
    end while
end func

func Main()
    while(true, skip)
    end while
end func

func Main()
    try
    finally
    finally
    end try
end func

func Main()
    try
    finally
    end try
end func

func Main()
    if(true)
    catch
    end if
end func

func Main()
    if(true)
    else
    end if
end func

func Main()
    if(true)
    finally
    end if
end func

func Main()
    if(true)
    else
    end if
end func

func Main()
    ifdef(true)
    end ifdef
end func

func Main()
    ifdef(rls)
    end ifdef
end func

func Main()
    var a: int :: (1
    ) {途中の改行はNG}
end func

func Main()
    var a: int :: (1)
end func

const str: []char :: "	"

const Answer: int :: 42
func Main()
    {グローバル変数に@付け忘れ}
    do Dbg@Log(Answer.ToStr())
end func

const Answer: int :: 42
func Main()
    do Dbg@Log(@Answer.ToStr())
end func

const N: int :: 1
func Main()
    do Dbg@Log(test@N.ToStr())
end func

const N: int :: 1
func Main()
    do Dbg@Log(@N.ToStr())
end func

func Main()
    {_Init()は、Kuin.knで-funcで定義されています。}
    do Kuin@_Init()
end func

func Main()
    var n: int :: 1
    var f: float :: n
end func

{Kuinでは型が厳密に扱われます。}
func Main()
    var n: int :: 1
    var f: float :: n$ float
end func

func Main()
    const n: int :: 9223372036854775808
    do Dbg@Log(n.ToStr())
end func

func Main()
    var b: int :: 1
    const a: int :: b + 1
    do Dbg@Log(a.ToStr())
end func

func Main()
    const b: int :: 1
    const a: int :: b + 1
    do Dbg@Log(a.ToStr())
end func

func Main()

    do 1 :: 1
end func

func Main()
    var n: int
    do n :: 1
end func

func Main()
    do Dbg@Log('A'.Tostr())
end func
{whileのブロック名に代入した場合もこのエラー}

func Main()
    do Dbg@Log('A'.ToStr())
end func

func Main()
    do 1()


end func

func Main()
    do f()
    func f()
    end func
end func

func Main()
    var n: int
    do f(n)
    func f(x: &int)
    end func
end func

func Main()
    var n: int
    do f(&n)
    func f(x: &int)
    end func
end func

func Main()
    const n: int :: 0
    do f(&n)
    func f(x: &int)
    end func
end func

func Main()
    var n: int
    do f(&n)
    func f(x: &int)
    end func
end func

func Main()
    var a: int
    do a[0] :: 1
end func

func Main()
    var a: int
    do a :: 1
end func

func Main()
    class c()
        -var a: int
    end class
    do Dbg@Log((#c).a.ToStr())
end func

func Main()
    class c()
        var a: int
    end class
    do Dbg@Log((#c).a.ToStr())
end func

func Main()
    class C1()


    end class
    class C2(C1)
        +func f()
        end func
    end class
    do (#C2).f()
end func

func Main()
    class C1()
        func f()
        end func
    end class
    class C2(C1)
        +func f()
        end func
    end class
    do (#C2).f()
end func

func Main()
    class C()
        func Dtor()
            do Dbg@Log("Destructor is called.")
        end func
    end class
    var c: C :: #C
end func

func Main()
    class C()
        +func Dtor() {funcの手前に+でオーバーライド}
            do Dbg@Log("Destructor is called.")
        end func
    end class
    var c: C :: #C
end func

func Main()
    class C1()
        func f()
        end func
    end class
    class C2(C1)
        -+func f() {継承元のf()には「-」がない}
        end func
    end class
    do (#C2).f()
end func

func Main()
    class C1()
        func f()
        end func
    end class
    class C2(C1)
        +func f() {引数や戻り値の型も一致}
        end func
    end class
    do (#C2).f()
end func

func Main()
    var c: C1 :: #C1
    class C1(C2)
    end class
    class C2(C1)
    end class
end func

func Main()
    do Dbg@Log((e#a $int) .ToStr())
    enum e
        a :: 16#7fffffffffffffff
        b {このbの値がintの有効範囲を超えてしまう}
    end enum
end func

func Main()
    var n: int :: 1
    enum e
        a :: n
    end enum
    do Dbg@Log((e#a$ int).ToStr())
end func

func Main()
    const n: int :: 1
    enum e
        a :: n
    end enum
    do Dbg@Log((e#a$ int).ToStr())
end func

func Main()
    enum e
        a {enum要素の先頭の値は、省略時=>0}
        b :: 0
    end enum
    do Dbg@Log((e#a$ int).ToStr())
end func

func Main()
    enum e
        a :: -1
        b
    end enum
    do Dbg@Log((e#a$ int).ToStr())
end func

func Main()
    assert 0
end func

func Main()
    assert false
end func

func Main()
    const str: []char :: null
    switch(str)
    case(null)
        do Dbg@Log("null!!")
    end switch
end func

func Main()
    var str: []char :: null
    switch s(str)
    default
        if(s =& null)
            do Dbg@Log("null!!")
        end if
    end switch
end func

func Main()
    var n: int :: 1
    switch(1)
    case(n)
    end switch
end func

func Main()
    const n: int :: 1
    switch(1)
    case(n)
    end switch
end func

func Main()
    for(0.5, 9)
    end for
end func

func Main()
    for(0, 9)
    end for
end func

func Main()
    for(0, 9.5)
    end for
end func

func Main()
    for(0, 9)
    end for
end func

func Main()
    for(9, 0, false)
    end for
end func

func Main()
    for(9, 0, -1)
    end for
end func

func Main()
    var n: int :: 1
    for(9, 0, n)
    end for
end func

func Main()
    const n: int :: 1
    for(9, 0, n)
    end for
end func

func Main()
    for(9, 0, 0)
    end for
end func

func Main()
    for(9, 0, -1)
    end for
end func

func Main()
    foreach(0)
    end foreach
end func

func Main()
    var n: int :: 1
    try
    catch (n)
    end try
end func

func Main()
    const n: int :: 1
    try
    catch (n)
    end try
end func

func Main()
    throw true
end func

func Main()
    throw 1
end func

func Main()
    throw 1, true
end func

func Main()
    throw 1, "Error 1"
end func

func Main()
    do 1
end func

func Main()
    var a: int
    break a
end func

func Main()
    while a()
        if b(true)
            continue b
        end if
    end while
end func

func Main()
    while a()
        if b(true)
            continue a
        end if
    end while
end func

func Main()
    func f(n: n)
    end func
    do f(1)
end func

func Main()
    func f(n: int)
    end func
    do f(1)
end func

{2013/09/28時点でE9998になるコード}
{クラスの値比較}
func Main()
    class c()
    end class
    if(#c = #c)
    end if
end func

{2013/09/28時点でE9998になるコード}
{配列の値比較}
func Main()
    if(#[0]int = #[0]int)
    end if
end func

{2013/09/28時点でE9998になるコード}
{case条件に[]char以外の配列型}
func Main()
    class c()
    end class
    switch(#[0]int)
    case(#[0]int)
    end switch
end func

{2013/09/28時点でE9999になるコード}
{※意味解析までは問題ありません。}
{[コンパイル＆実行]でエラーになります。}
{Kuin 1.01ではエラーになりません。}
func Main()
    var lStream: File@CLoadStream :: File@LoadFileStream("./test.txt")
    var buf: []byte8 :: lStream.Read(10) {E9999}
end func

{2013/09/28時点でE9999になるコード}
{Kuin 1.01ではエラーになりません。}
func Main()
    class c()
    end class
    switch(#c)
    case(#c)
    end switch
end func

{2016/03/29時点でE9999になるコード}
func Main()
	var a: c :: #c
	class c()
		var s: Snd@CSnd
	end class
end func

2016/03/27調査中です。
2016/03/27追記: 以下のコードで発生します。(Kuin 1.01で発生。Kuin 1.00には存在しなかった不具合だと思います。)
func Main()
    var a: c :: (#c)
    class c()
        var f: func>()<
        func temp()
            do me.f()
        end func
    end class
end func

2016/03/27さらに追記: 引数が0個ではなく1個だとコンパイルできることがわかりました。
  以下のコードではコンパイル出来ます。
  実行も問題ありません。
func Main()
    var a: c :: (#c)
    class c()
        var f: func>(int)<
        func temp()
            do me.f(1)
        end func
    end class
end func

func Main()
    do Snd@Load("test.ogg")
    {※ do LoadTex@Load("")など、オブジェクトを返す他の関数でも同様です。}
end func

func Main()
    const a: int :: +a
    do Dbg@Log(a.ToStr())
end func

func Main()
    const a: int :: a + a
    do Dbg@Log(a.ToStr())
end func

func Main()
    const a: int :: a ?(1,1)
    do Dbg@Log(a.ToStr())
end func

func Main()
    const a: int :: a$ int
    do Dbg@Log(a.ToStr())
end func

func Main()
    const a: int :: a()
    do Dbg@Log(a.ToStr())
end func

func Main()
    const a: int :: a[1]
    do Dbg@Log(a.ToStr())
end func

func Main()
    const a: int :: a.a
    do Dbg@Log(a.ToStr())
end func

func Main()
    const a: int :: a
    do Dbg@Log(a.ToStr())
end func

func Main()
    const a: int :: [a]int
    do Dbg@Log(a.ToStr())
end func

func Main()
    const a: int :: #[a]int
    do Dbg@Log(a.ToStr())
end func