DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFileVerbose
    Names: »testjobs«

└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
    └─⟦6b41451d2⟧ 
        └─⟦this⟧ »testjobs« 

TextFileVerbose

%

(***********************
*    erip test 1       *
*    test statements   *
***********************)

process test_p;

type  rec=record c,a,b: integer end;

label l,1;

var  i,a,b: integer;
     bo: boolean;
     ref,ref1: reference;
     r,r1: rec;
     ar: array (1..2) of rec;
     sem: semaphore;

struc: record
       x: integer;
       y: record 
          x: integer;
          y: record
             x: integer;
             y: integer;
             end;
          end;
       end;

sha,shb: shadow;

procedure p1;
begin i:=0 end;

procedure p2(a: integer;  r1: rec;  var r2: rec);
begin
with r1 do a:=0;
with r2 do a:=0;
end;

process p(a,b: integer; c: char; var s: semaphore); external;


begin
p1;
p2(a,r,r);
create(a, p(1,2,'a',sem));
link(p);

a:=0;

case a of
4,5: i:=0;
6..8: i:=0;
otherwise i:=0
end;

case b of
6+8: ;
end;

for i:=0 to 10 do a:=0;
for i:=10 downto 0 do a:=0;

l: if bo then goto l;
1: if bo then goto l else goto 1;

repeat bo:=true until bo;
while bo do bo:=true;

with struc,y,y,r do
begin
y:=0;
a:=0;
end;


with r do a:=0;
with ar(1) do a:=0;
lock ref as x:rec do x.a:=0;
lock ref as x:rec do
with x do a:=0;
channel ref do i:=0;

ref:=:ref1;
sha:=:shb;
end.

%



(**********************
*  erip test 2        *
*  test declararions  *
**********************)

process test_p;

const c = 9;

type

sc = (aa,bb,cc,dd,ee,ff,gg,hh);
su=0..15;
ar = array (1..99) of integer;
arp = packed array (1..10) of sc;

re=record
a,b,c: integer;
d: char;
e: ar;
f: integer;
end;

px = re;

const   c_ar = ar(99***10);
        c_re = re(1,2,3,'a',c_ar,0);

type re1 = packed record
           a,b: sc;
           d : record a,b: integer; end;
           e: array (1..10) of integer;
           f,g: su;
           end;

var

s1: set of 0..15;
s2: set of 0..255;
s3: set of 0..2047;

p: pool 10;
p1:pool 11 of re;
f: !re;
po: ^re;

pra: packed record
     a,b,c,d: 0..15;
     e: integer;
     f: re;
     g,h,i,j: 0..255;
     k,l,m: 0..31;
     n: boolean;
     o,p,q: 0..31;
     r: 0..2;
     end;

a1: packed array (0..4) of 0..4;
a2: packed array (0..4) of 0..30;
a3: packed array (0..4) of 0..31;
a4: packed array (0..4) of 0..32;

va: sc;
vb: su;
vc: ar;
vd: arp;
ve: re;
vf: px;
vg: re1;

begin
va:=va;
vb:=vb;
vc(1):=vc(3);
vd(4):=cc;

with ve do begin
a:=0;
b:=0;
c:=0;
d:=0;
e:=c_ar;
f:=0;
end;

ve:=c_re;

with vg do  begin
b:=dd;
a:=a;
d.a:=0;
with d do b:=0;
e(5):=0;
g:=f;
end;

if c in s1 then ;
if c in s2 then;
if c in s3 then;
 
ve:=f;

vb:=a3(3);
vb:=a4(4);
vb:=a1(1);
vb:=a2(2);

with pra  do begin
a:=c;
b:=c;
d:=c;

e:=c;
f:=ve;
g:=c;
h:=1;
i:=2;
j:=3;
k:=4;
l:=5;
m:=6;
n:=true;
o:=7;
p:=8;
q:=9;
r:=1;
end;
(*$4 1 0*)
 (*$4 2 0*) (*$4 3 0*)
end.

%

«eof»