15 lines
220 B
Text
15 lines
220 B
Text
|
MODULE Null;
|
||
|
|
IMPORT
|
||
|
|
Out;
|
||
|
|
TYPE
|
||
|
|
Object = POINTER TO ObjectDesc;
|
||
|
|
ObjectDesc = RECORD
|
||
|
|
END;
|
||
|
|
|
||
|
|
VAR
|
||
|
|
o: Object; (* default initialization to NIL *)
|
||
|
|
|
||
|
|
BEGIN
|
||
|
|
IF o = NIL THEN Out.String("o is NIL"); Out.Ln END
|
||
|
|
END Null.
|