[Gm2] Problem with qualified variables

[John B. Wallace, Jr.]

The short test modules below do not produce the expected result on my system
( Red Hat 9 Linux / i586). The value output for k is zero.

 I am using the gm2 sources from 26 Aug. 2004.


DEFINITION MODULE QualifiedVar;

VAR
  k : INTEGER;

END QualifiedVar.


IMPLEMENTATION MODULE QualifiedVar;

BEGIN
  k :=345
END QualifiedVar.


MODULE TestQualified;

IMPORT QualifiedVar;

FROM NumberIO IMPORT WriteCard;

FROM StrIO IMPORT WriteLn;

BEGIN
  WriteCard(QualifiedVar.k,0);
  WriteLn
END TestQualified.


John Wallace