https://gcc.gnu.org/g:c943d7b5c40f447b12431df9ad27a47dad95026d
commit r15-137-gc943d7b5c40f447b12431df9ad27a47dad95026d Author: Gaius Mulley <gaiusm...@gmail.com> Date: Fri May 3 20:48:01 2024 +0100 PR modula2/114929 extra for loop iteration count regression tests This patch introduces three more for loop tests checking the iteration count using the CHAR and enumeration data types. gcc/testsuite/ChangeLog: PR modula2/114929 * gm2/pim/run/pass/testforloopchar.mod: New test. * gm2/pim/run/pass/testforloopchar2.mod: New test. * gm2/pim/run/pass/testforloopenum.mod: New test. Signed-off-by: Gaius Mulley <gaiusm...@gmail.com> Diff: --- gcc/testsuite/gm2/pim/run/pass/testforloopchar.mod | 27 +++++++++++++++++++ .../gm2/pim/run/pass/testforloopchar2.mod | 27 +++++++++++++++++++ gcc/testsuite/gm2/pim/run/pass/testforloopenum.mod | 30 ++++++++++++++++++++++ 3 files changed, 84 insertions(+) diff --git a/gcc/testsuite/gm2/pim/run/pass/testforloopchar.mod b/gcc/testsuite/gm2/pim/run/pass/testforloopchar.mod new file mode 100644 index 00000000000..be26ecb7149 --- /dev/null +++ b/gcc/testsuite/gm2/pim/run/pass/testforloopchar.mod @@ -0,0 +1,27 @@ +MODULE testforloopchar ; + +FROM libc IMPORT printf, exit ; + +PROCEDURE test ; +VAR + ch : CHAR ; + count: CARDINAL ; +BEGIN + count := 0 ; + FOR ch := 'a' TO 'z' DO + INC (count) ; + printf ("ch = %c, count = %d\n", ch, count) + END ; + IF count = 26 + THEN + printf ("passed\n") + ELSE + printf ("failed\n") ; + exit (1) + END +END test ; + + +BEGIN + test +END testforloopchar. diff --git a/gcc/testsuite/gm2/pim/run/pass/testforloopchar2.mod b/gcc/testsuite/gm2/pim/run/pass/testforloopchar2.mod new file mode 100644 index 00000000000..05478b2d5f2 --- /dev/null +++ b/gcc/testsuite/gm2/pim/run/pass/testforloopchar2.mod @@ -0,0 +1,27 @@ +MODULE testforloopchar2 ; + +FROM libc IMPORT printf, exit ; + +PROCEDURE test ; +VAR + ch : CHAR ; + count: CARDINAL ; +BEGIN + count := 0 ; + FOR ch := 'a' TO 'z' BY CHR (2) DO + INC (count) ; + printf ("ch = %c, count = %d\n", ch, count) + END ; + IF count = 13 + THEN + printf ("passed\n") + ELSE + printf ("failed\n") ; + exit (1) + END +END test ; + + +BEGIN + test +END testforloopchar2. diff --git a/gcc/testsuite/gm2/pim/run/pass/testforloopenum.mod b/gcc/testsuite/gm2/pim/run/pass/testforloopenum.mod new file mode 100644 index 00000000000..3855cae0012 --- /dev/null +++ b/gcc/testsuite/gm2/pim/run/pass/testforloopenum.mod @@ -0,0 +1,30 @@ +MODULE testforloopenum ; + +FROM libc IMPORT printf, exit ; + +TYPE + colour = (red, green, blue, yellow) ; + +PROCEDURE test ; +VAR + c : colour ; + count: CARDINAL ; +BEGIN + count := 0 ; + FOR c := red TO blue BY colour (2) DO + INC (count) ; + printf ("c = %d, count = %d\n", c, count) + END ; + IF count = 2 + THEN + printf ("passed\n") + ELSE + printf ("failed\n") ; + exit (1) + END +END test ; + + +BEGIN + test +END testforloopenum.