Fix in previous added check

diff --git a/lang/m2/comp/program.g b/lang/m2/comp/program.g
index 7621f06..fff51fe 100644 (file)
--- a/lang/m2/comp/program.g
+++ b/lang/m2/comp/program.g
@@ -240,7 +240,7 @@ ProgramModule
        MODULE
        IDENT   { len = strlen(dot.TOK_IDF->id_text);
                  if (len > 10) len = 10;
-                 if (strncmp(FileName, dot.TOK_IDF->id_text, 10)) {
+                 if (strncmp(FileName, dot.TOK_IDF->id_text, len)) {
                        warning(W_ORDINARY, "modulename %s does not match filename %s", dot.TOK_IDF->id_text, FileName);
                  }
                  if (state == IMPLEMENTATION) {