Home | History | Annotate | Download | only in ken
      1 // run
      2 
      3 // Copyright 2009 The Go Authors. All rights reserved.
      4 // Use of this source code is governed by a BSD-style
      5 // license that can be found in the LICENSE file.
      6 
      7 // Test simple operations on arrays.
      8 
      9 package main
     10 
     11 var b[10] float32;
     12 
     13 func
     14 main() {
     15 	var a[10] float32;
     16 
     17 	for i:=int16(5); i<10; i=i+1 {
     18 		a[i] = float32(i);
     19 	}
     20 
     21 	s1 := float32(0);
     22 	for i:=5; i<10; i=i+1 {
     23 		s1 = s1 + a[i];
     24 	}
     25 
     26 	if s1 != 35 { panic(s1); }
     27 
     28 	for i:=int16(5); i<10; i=i+1 {
     29 		b[i] = float32(i);
     30 	}
     31 
     32 	s2 := float32(0);
     33 	for i:=5; i<10; i=i+1 {
     34 		s2 = s2 + b[i];
     35 	}
     36 
     37 	if s2 != 35 { panic(s2); }
     38 
     39 	b := new([100]int);
     40 	for i:=0; i<100; i=i+1 {
     41 		b[i] = i;
     42 	}
     43 
     44 	s3 := 0;
     45 	for i:=0; i<100; i=i+1 {
     46 		s3 = s3+b[i];
     47 	}
     48 
     49 	if s3 != 4950 { panic(s3); }
     50 }
     51