--- /dev/null
+// $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
+
+export func
+setpd(a *[]int)
+{
+// print("setpd a=", a, " len=", len(a), " cap=", cap(a), "\n");
+ for i:=0; i<len(a); i++ {
+ a[i] = i;
+ }
+}
+
+export func
+sumpd(a *[]int) int
+{
+// print("sumpd a=", a, " len=", len(a), " cap=", cap(a), "\n");
+ t := 0;
+ for i:=0; i<len(a); i++ {
+ t += a[i];
+ }
+// print("sumpd t=", t, "\n");
+ return t;
+}
+
+export func
+setpf(a *[20]int)
+{
+// print("setpf a=", a, " len=", len(a), " cap=", cap(a), "\n");
+ for i:=0; i<len(a); i++ {
+ a[i] = i;
+ }
+}
+
+export func
+sumpf(a *[20]int) int
+{
+// print("sumpf a=", a, " len=", len(a), " cap=", cap(a), "\n");
+ t := 0;
+ for i:=0; i<len(a); i++ {
+ t += a[i];
+ }
+// print("sumpf t=", t, "\n");
+ return t;
+}
+
+func
+res(t int, lb, hb int)
+{
+ sb := (hb-lb)*(hb+lb-1)/2;
+ if t != sb {
+ print( "lb=", lb,
+ "; hb=", hb,
+ "; t=", t,
+ "; sb=", sb,
+ "\n");
+ panic("res")
+ }
+}
+
+// call ptr dynamic with ptr dynamic
+func
+testpdpd()
+{
+ a := new([]int, 10, 100);
+ if len(a) != 10 && cap(a) != 100 {
+ panic("len and cap from new: ", len(a), " ", cap(a), "\n");
+ }
+
+ a = a[0:100];
+ setpd(a);
+
+ a = a[0:10];
+ res(sumpd(a), 0, 10);
+
+ a = a[5:25];
+ res(sumpd(a), 5, 25);
+}
+
+// call ptr fixed with ptr fixed
+func
+testpfpf()
+{
+ var a [20]int;
+
+ setpf(&a);
+ res(sumpf(&a), 0, 20);
+}
+
+// call ptr dynamic with ptr fixed from new
+func
+testpdpf1()
+{
+ a := new([40]int);
+ setpd(a);
+ res(sumpd(a), 0, 40);
+
+ b := a[5:30];
+ res(sumpd(b), 5, 30);
+}
+
+// call ptr dynamic with ptr fixed from var
+func
+testpdpf2()
+{
+ var a [80]int;
+
+ setpd(&a);
+ res(sumpd(&a), 0, 80);
+}
+
+// generate bounds error with ptr dynamic
+func
+testpdfault()
+{
+ a := new([]int, 100);
+
+ print("good\n");
+ for i:=0; i<100; i++ {
+ a[i] = 0;
+ }
+ print("should fault\n");
+ a[100] = 0;
+ print("bad\n");
+}
+
+// generate bounds error with ptr fixed
+func
+testfdfault()
+{
+ var a [80]int;
+
+ print("good\n");
+ for i:=0; i<80; i++ {
+ a[i] = 0;
+ }
+ print("should fault\n");
+ a[80] = 0;
+ print("bad\n");
+}
+
+func
+main()
+{
+ print("testpdpd\n"); testpdpd();
+ print("testpfpf\n"); testpfpf();
+ print("testpdpf1\n"); testpdpf1();
+ print("testpdpf2\n"); testpdpf2();
+// print("testpdfault\n"); testpdfault();
+// print("testfdfault\n"); testfdfault();
+}
--- /dev/null
+// $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
+
+var ians [18]int;
+var uans [18]uint;
+var pass string;
+
+func
+testi(i int, t1,t2,t3 int)
+{
+ n := ((t1*3) + t2)*2 + t3;
+ if i != ians[n] {
+ print("itest ", t1,t2,t3,pass,
+ " is ", i, " sb ", ians[n], "\n");
+ }
+}
+
+func
+index(t1,t2,t3 int) int
+{
+ return ((t1*3) + t2)*2 + t3;
+}
+
+func
+testu(u uint, t1,t2,t3 int)
+{
+ n := index(t1,t2,t3);
+ if u != uans[n] {
+ print("utest ", t1,t2,t3,pass,
+ " is ", u, " sb ", uans[n], "\n");
+ }
+}
+
+func
+main()
+{
+ var i int;
+ var u,c uint;
+
+ /*
+ * test constant evaluations
+ */
+ pass = "con"; // constant part
+
+ testi( int(1234) << 0, 0,0,0);
+ testi( int(1234) >> 0, 0,0,1);
+ testi( int(1234) << 5, 0,1,0);
+ testi( int(1234) >> 5, 0,1,1);
+ testi( int(1234) << 1025, 0,2,0);
+ testi( int(1234) >> 1025, 0,2,1);
+
+ testi(int(-1234) << 0, 1,0,0);
+ testi(int(-1234) >> 0, 1,0,1);
+ testi(int(-1234) << 5, 1,1,0);
+ testi(int(-1234) >> 5, 1,1,1);
+ testi(int(-1234) << 1025, 1,2,0);
+ testi(int(-1234) >> 1025, 1,2,1);
+
+ testu(uint(5678) << 0, 2,0,0);
+ testu(uint(5678) >> 0, 2,0,1);
+ testu(uint(5678) << 5, 2,1,0);
+ testu(uint(5678) >> 5, 2,1,1);
+ testu(uint(5678) << 1025, 2,2,0);
+ testu(uint(5678) >> 1025, 2,2,1);
+
+ /*
+ * test variable evaluations
+ */
+ pass = "var"; // variable part
+
+ for t1:=0; t1<3; t1++ { // +int, -int, uint
+ for t2:=0; t2<3; t2++ { // 0, +small, +large
+ for t3:=0; t3<2; t3++ { // <<, >>
+ switch t1 {
+ case 0: i = 1234;
+ case 1: i = -1234;
+ case 2: u = 5678;
+ }
+ switch t2 {
+ case 0: c = 0;
+ case 1: c = 5;
+ case 2: c = 1025;
+ }
+ switch t3 {
+ case 0: i <<= c; u <<= c;
+ case 1: i >>= c; u >>= c;
+ }
+ switch t1 {
+ case 0: testi(i,t1,t2,t3);
+ case 1: testi(i,t1,t2,t3);
+ case 2: testu(u,t1,t2,t3);
+ }
+ }
+ }
+ }
+}
+
+func
+init()
+{
+ /*
+ * set the 'correct' answer
+ */
+
+ ians[index(0,0,0)] = 1234;
+ ians[index(0,0,1)] = 1234;
+ ians[index(0,1,0)] = 39488;
+ ians[index(0,1,1)] = 38;
+ ians[index(0,2,0)] = 0;
+ ians[index(0,2,1)] = 0;
+
+ ians[index(1,0,0)] = -1234;
+ ians[index(1,0,1)] = -1234;
+ ians[index(1,1,0)] = -39488;
+ ians[index(1,1,1)] = -39;
+ ians[index(1,2,0)] = 0;
+ ians[index(1,2,1)] = -1;
+
+ uans[index(2,0,0)] = 5678;
+ uans[index(2,0,1)] = 5678;
+ uans[index(2,1,0)] = 181696;
+ uans[index(2,1,1)] = 177;
+ uans[index(2,2,0)] = 0;
+ uans[index(2,2,1)] = 0;
+}