--- a/SMatEA.mod.m2pp
+++ b/SMatEA.mod.m2pp
@@ -47,7 +47,7 @@
(* Licence : GNU Lesser General Public License (LGPL) *)
(*------------------------------------------------------------------------*)
- (* $Id: SMatEA.mod.m2pp,v 1.10 2018/01/16 09:19:51 mriedl Exp mriedl $ *)
+ (* $Id: SMatEA.mod.m2pp,v 1.11 2019/02/01 22:24:03 mriedl Exp mriedl $ *)
FROM SYSTEM IMPORT TSIZE,ADDRESS;
FROM Storage IMPORT ALLOCATE,DEALLOCATE;
@@ -1549,6 +1549,9 @@
VAR i,j : CARDINAL;
BEGIN
+ IF (N < 2) THEN
+ FatalError("N < 2 in SMatEA.WrMatConst");
+ END;
WrStr(Aus,"TYPE Mat");
WrCard(Aus,M,1); WrCard(Aus,N,1);
WrStr(Aus," = ARRAY [1.."); WrCard(Aus,M,1);