PROCEDURE comp ( a, r : IN REAL;
m : IN INTEGER ;
v1, v2: OUT REAL) IS
VARIABLE cnt : INTEGER ;
BEGIN
v1 := 1.6 * a ; -- 赋初始值
v2 := 1.0 ; -- 赋初始值
Q1 : FOR cnt IN 1 TO m LOOP
v2 := v2 * v1 ;
EXIT Q1 WHEN v2 > v1; --当v2>v1,跳出循环LOOP
END LOOP Q1
ASSERT (v2 < v1 )
REPORT "OUT OF RANGE" -- 输出错误报告
SEVERITY ERROR ;
END PROCEDURE comp ;