linux-packaging-mono/mcs/tests/test-named-01.cs
Jo Shields a575963da9 Imported Upstream version 3.6.0
Former-commit-id: da6be194a6b1221998fc28233f2503bd61dd9d14
2014-08-13 10:39:27 +01:00

63 lines
604 B
C#

using System;
class A
{
public int Index;
public A ()
: this (x : 0)
{
}
protected A (object x)
{
}
public virtual int this [int i] {
set {
Index = value;
}
}
}
class B : A
{
public B ()
: base (x : "x")
{
}
public override int this [int i] {
set {
base [i : i] = value + 4;
}
}
}
class XAttribute:Attribute
{
public XAttribute (int h)
{
}
}
[X (h : 3)]
class M
{
static void Foo (int a)
{
}
public static int Main ()
{
Foo (a : -9);
B b = new B ();
b [8] = 5;
if (b.Index != 9)
return 1;
Console.WriteLine ("ok");
return 0;
}
}