summaryrefslogtreecommitdiff
path: root/test/ken/interbasic.go
blob: 2603d2560e88f0949dc092eb6b33e9105fbff1b0 (plain)
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
// $G $D/$F.go && $L $F.$A && ./$A.out

// Copyright 2009 The Go Authors. All rights reserved.
// Use of this source code is governed by a BSD-style
// license that can be found in the LICENSE file.

package main

type	myint		int;
type	mystring	string;
type	I0		interface {};

func
f()
{
	var ia, ib I0;
	var i myint;
	var s mystring;

	if ia != ib { panicln("1"); }

	i = 1;
	ia = i;
	ib = i;
	if ia != ib { panicln("2"); }
	if ia == nil { panicln("3"); }

	i = 2;
	ia = i;
	if ia == ib { panicln("4"); }

	ia = nil;
	if ia == ib { panicln("5"); }

	ib = nil;
	if ia != ib { panicln("6"); }

	if ia != nil { panicln("7"); }

	s = "abc";
	ia = s;
	ib = nil;
	if ia == ib { panicln("8"); }

	s = "def";
	ib = s;
	if ia == ib { panicln("9"); }

	s = "abc";
	ib = s;
	if ia != ib { panicln("a"); }
}

func
main()
{
	var ia [20]I0;
	var b bool;
	var s string;
	var i8 int8;
	var i16 int16;
	var i32 int32;
	var i64 int64;
	var u8 uint8;
	var u16 uint16;
	var u32 uint32;
	var u64 uint64;

	f();

	ia[0] = "xxx";
	ia[1] = 12345;
	ia[2] = true;

	s = "now is";	ia[3] = s;
	b = false;	ia[4] = b;

	i8 = 29;	ia[5] = i8;
	i16 = 994;	ia[6] = i16;
	i32 = 3434;	ia[7] = i32;
	i64 = 1234567;	ia[8] = i64;

	u8 = 12;	ia[9] = u8;
	u16 = 799;	ia[10] = u16;
	u32 = 4455;	ia[11] = u32;
	u64 = 765432;	ia[12] = u64;

	s = ia[0];	if s != "xxx" { panicln(0,s); }
	i32 = ia[1];	if i32 != 12345 { panicln(1,i32); }
	b = ia[2];	if b != true { panicln(2,b); }

	s = ia[3];	if s != "now is" { panicln(3,s); }
	b = ia[4];	if b != false { panicln(4,b); }

	i8 = ia[5];	if i8 != 29 { panicln(5,i8); }
	i16 = ia[6];	if i16 != 994 { panicln(6,i16); }
	i32 = ia[7];	if i32 != 3434 { panicln(7,i32); }
	i64 = ia[8];	if i64 != 1234567 { panicln(8,i64); }

	u8 = ia[9];	if u8 != 12 { panicln(5,u8); }
	u16 = ia[10];	if u16 != 799 { panicln(6,u16); }
	u32 = ia[11];	if u32 != 4455 { panicln(7,u32); }
	u64 = ia[12];	if u64 != 765432 { panicln(8,u64); }
}