mcs/tests/test-cls-06.cs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65

// Compiler options: -warnaserror

using System;

[assembly:CLSCompliant(true)]

[CLSCompliant(false)]
public delegate uint MyDelegate();

[CLSCompliant(false)]
public interface IFake {
#pragma warning disable 3018	
        [CLSCompliant(true)]
        long AA(long arg);
#pragma warning disable 3018        
        
        [CLSCompliant(false)]
        ulong BB { get; }
        //[CLSCompliant(false)]
        //sbyte this[ulong I] { set; }
        [CLSCompliant(false)]
        event MyDelegate MyEvent;
}

#pragma warning disable 3019
[CLSCompliant(false)]
internal interface I {
        [CLSCompliant(false)]
        void Foo();

        [CLSCompliant(true)]
        ulong this[int indexA] { set; }
}
#pragma warning restore 3019

interface I2 {
        int Test(int arg1, bool arg2);
}

public class CLSClass {
        [CLSCompliant(false)]
        public delegate uint MyDelegate();    
    
        public static void Main() {}
}
public class CLSClass_2 {
    [CLSCompliant (false)]
    public CLSClass_2(int[,,] b) {
    }

    public CLSClass_2(int[,] b) {
    }

    public void Test (int[,] b, int i) {}
    public void Test (int[,,] b, bool b2) {}
}

public class X1 {
    [CLSCompliant (false)]
    public void M2 (int i) {}
}

public class X2: X1 {
    public void M2 (ref int i) {}
}