procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

PR modula2/115164 initial test code highlighting the problem

Browse source 
This patch includes some trivial testcode which highlights
PR 115164.  Expect future test code to perform runtime checks
for a series of trailing zeros.

gcc/testsuite/ChangeLog:

	PR modula2/115164
	* gm2/isolib/run/pass/testlowread.mod: New test.
	* gm2/isolib/run/pass/testwritereal.mod: New test.

Signed-off-by: Gaius Mulley <gaiusmod2@gmail.com>
This commit is contained in:
Gaius Mulley 2024-05-21 01:11:48 +01:00
parent 9ff8f04133
commit d642b66a29
2 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gcc/testsuite/gm2/isolib/run/pass/testlowread.mod Normal file
View file

@ -0,0 +1,9 @@
MODULE testlowread ;
FROM LowReal IMPORT places ;
FROM STextIO IMPORT WriteString, WriteLn ;
FROM SWholeIO IMPORT WriteCard ;
BEGIN
WriteString ('value of places = ') ; WriteCard (places, 0) ; WriteLn
END testlowread.

9
gcc/testsuite/gm2/isolib/run/pass/testwritereal.mod Normal file
View file

@ -0,0 +1,9 @@
MODULE testwritereal ;
FROM STextIO IMPORT WriteString, WriteLn ;
FROM SRealIO IMPORT WriteFloat ;
FROM RealMath IMPORT pi ;
BEGIN
WriteString ('value of pi = ') ; WriteFloat (pi, 0, 0) ; WriteLn
END testwritereal.