1 program mty0;
2 uses mtx09;
3 var
4 m:mtx;
5 begin
6 mwr(mty(m)); // m not yet allocated so empty
7 zer(m,1,1); // m is a 1,1 matrix; m(1,1)=0.0
8 mwr(mty(m)); // therefore NOT empty
9 equ(m,''); // m has some memory allocated but null size
10 mwr(mty(m)) // therefore empty
11 end.
12 {
13 TRUE
14 FALSE
15 TRUE
16 }