[Gm2] Problem with arrays

[Waldek Hebisch]

The following program:

MODULE tta;
TYPE ctype = INTEGER [-1 .. 24];
     btype = ctype;
VAR bvar : ARRAY btype OF INTEGER;
BEGIN
  bvar[0] := 0;
END tta
.

gives me:
src2$ ../../gm2-lin/gcc/xgm2 -B../../gm2-lin/gcc/ -c -I. 
-I../../gcc-3.3.2/gcc/gm2/gm2-libs tta.mod
tta.mod:9:error with array () subscript (1) no subrange for this subscript, 
instead the type given was aa

Moreover if I import additional module:

file A.def:
DEFINITION MODULE A;
END A
.

file ttb.mod:

MODULE ttb;
IMPORT A;
TYPE ctype = INTEGER [-1 .. 24];
     btype = ctype;
VAR bvar : ARRAY btype OF INTEGER;
BEGIN
  bvar[0] := 0;
END ttb
.

I get:

src2$ ../../gm2-lin/gcc/xgm2 -B../../gm2-lin/gcc/ -c -I. 
-I../../gcc-3.3.2/gcc/gm2/gm2-libs ttb.mod
A.def:4:error with array () subscript (1) no subrange for this subscript, 
instead the type given was aa

so the error message refers to module A!

-- 
                              Waldek Hebisch
address@hidden