testsuite: add bc and dc tests
Signed-off-by: Denys Vlasenko <vda.linux@googlemail.com>
This commit is contained in:
		
							
								
								
									
										35
									
								
								testsuite/bc_array.bc
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										35
									
								
								testsuite/bc_array.bc
									
									
									
									
									
										Normal file
									
								
							@@ -0,0 +1,35 @@
 | 
			
		||||
#! /usr/bin/bc -q
 | 
			
		||||
 | 
			
		||||
define z(a[]) {
 | 
			
		||||
	for (i = 0; i < l; ++i) {
 | 
			
		||||
		a[i]
 | 
			
		||||
	}
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
define x(a[]) {
 | 
			
		||||
 | 
			
		||||
	for (i = 0; i < l; ++i) {
 | 
			
		||||
		a[i] = -i
 | 
			
		||||
	}
 | 
			
		||||
 | 
			
		||||
	z(a[])
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
for (i = 0; i < 101; ++i) {
 | 
			
		||||
	a[i] = i
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
a[104] = 204
 | 
			
		||||
 | 
			
		||||
l = length(a[])
 | 
			
		||||
 | 
			
		||||
for (i = 0; i <= l; ++i) {
 | 
			
		||||
	a[i]
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
z(a[])
 | 
			
		||||
x(a[])
 | 
			
		||||
z(a[])
 | 
			
		||||
l
 | 
			
		||||
 | 
			
		||||
halt
 | 
			
		||||
		Reference in New Issue
	
	Block a user