more type check fixes

This commit is contained in:
Scarlett
2025-04-02 13:19:37 -04:00
parent 692025412e
commit 20c372f134
2 changed files with 50 additions and 40 deletions

View File

@ -11,15 +11,15 @@ entry(arg) := {
another_name(1) := 'a';
another_name(2) := 'r';
another_name(3) := 'l';
a_of_s := reserve a_of_s(3);
a_of_s(0) := one_name;
a_of_s(1) := another_name;
many_names := reserve many_names(3);
many_names(0) := one_name;
many_names(1) := another_name;
many_names(2) := reserve many_names(2)(6); (* reserve space for an item of the same type as a_of_s(2), an array of character, with 6 members *)
many_names(2)(0) := "P";
many_names(2)(1) := "a";
many_names(2)(2) := "r";
many_names(2)(3) := "t";
many_names(2)(4) := "h";
many_names(2)(5) := "o";
many_names(2)(0) := 'P';
many_names(2)(1) := 'a';
many_names(2)(2) := 'r';
many_names(2)(3) := 't';
many_names(2)(4) := 'h';
many_names(2)(5) := 'o';
return 0;
}