[M3devel] test p078 works in release but not head -- NUMBER(open array constant) not constant

[Jay K]

C:\dev2\cm3.2\m3-sys\m3tests\src\p0\p078

 

 

This compiles with release but not head.

 

 

(* Copyright (C) 1994, Digital Equipment Corporation. *)
(* All rights reserved.                               *)
(* See the file COPYRIGHT for a full description.     *)
 
MODULE Main;

FROM Test IMPORT done, checkI, checkB;

CONST
  Numbers = ARRAY OF INTEGER {2, 3, 5, 7, 11};

  First = Numbers [FIRST (Numbers)];
  Last = Numbers [LAST (Numbers)];


  Number = NUMBER (Numbers);

  Empty = ARRAY OF INTEGER {};
  EFirst = FIRST (Empty);
  ELast  = LAST (Empty);
  ENumber = NUMBER (Empty);

 

BEGIN

checkI (First, 2);
checkI (Last, 11);
checkI (Number, 5);

checkB (EFirst > ELast, TRUE);
checkI (ENumber, 0);

done ();

END Main.


 

new source -> compiling Main.m3
"..\Main.m3", line 14: value is not constant
"..\Main.m3", line 19: value is not constant
2 errors encountered
compilation failed => not building program "pgm.exe"
Fatal Error: package build failed

C:\dev2\cm3.2\m3-sys\m3tests\src\p0\p078>

 

 

It is the lines with "NUMBER".

 

 

 - Jay
 		 	   		  
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://m3lists.elegosoft.com/pipermail/m3devel/attachments/20100307/3e6deec0/attachment-0001.html>