"Fossies" - the Fresh Open Source Software Archive

Member "pikt-1.19.0/src/test/lib/alerts/ArrayExpr2.alt" (26 Jun 2001, 680 Bytes) of package /linux/misc/old/pikt-1.19.0.tar.gz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 ArrayExpr2Alarm
    2 
    3 	begin 
    4 		for #i = 1 #i <= 32 #i += 1 
    5 			set #f[#i] = #i 
    6 			set #g[#i] = 33 - #i 
    7 		endfor 
    8 		if #f[#f[#f[#f[#f[#f[#f[#f[#f[#f[#f[#f[#f[#f[#f[#f[#f[#f[#f[#f[#f[#f[#f[#f[#f[#f[#f[#f[#f[#f[#f[#f[32] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] - 1] == 1 && #g[#g[#g[#g[#g[#g[#g[#g[#g[#g[#g[#g[#g[#g[#g[#g[#g[#g[#g[#g[#g[#g[#g[#g[#g[#g[#g[#g[#g[#g[#g[#g[1] - 1] + 1] - 1] + 1] - 1] + 1] - 1] + 1] - 1] + 1] - 1] + 1] - 1] + 1] - 1] + 1] - 1] + 1] - 1] + 1] - 1] + 1] - 1] + 1] - 1] + 1] - 1] + 1] - 1] + 1] - 1] == 32 
    9 			output "ArrayExpr2 test 1" 
   10 		endif