{测试常表达式优化}
program aa
type t1=integer;
var t1 v1,v2;
integer a,b,c;
char o1;
procedure p(integer x; var integer y);
begin
x:=x+1 ;
y:=y+1
end
begin
v1:=10;
{ 循环不变式外提优化的测试程序,有过程调用情形}
program pp
var integer i,n,m,j,k;
array [1..10] of integer a;
procedure q();
begin
write(100)
end
begin
i:=0;
j:=0;
k:=0;
while k
{测试常表达式优化和公共表达式优化部分的例子；
检测复杂变量}
program pp
var integer v,x,i,j,y;
array [1..10] of integer a;
begin
i:=5;
j:=3;
read(v);
a[i]:= v;
x:=a[i]+j;
write(x);
a
