https://gcc.gnu.org/bugzilla/show_bug.cgi?id=110631
Bug ID: 110631
Summary: Bug in FIO.WriteCardinal
Product: gcc
Version: 14.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: modula2
Assignee: gaius at gcc dot gnu.org
Reporter: gaius at gcc dot gnu.org
Target Milestone: ---
As reported on the gm2 mailing list FIO.WriteCardinal is not writing binary
values:
$ gm2 output.mod
$ ./a.out > log
$ od -A x -t x1z -v log
000000 43 6f 75 6e 74 69 6e 67 20 69 6e 20 67 6d 32 3a >Counting in gm2:<
000010 20 6e 20 3d 20 00 00 00 0a 6e 20 3d 20 00 00 00 > n =3D ....n =3D .=
..<
000020 0a 6e 20 3d 20 00 00 00 0a 6e 20 3d 20 00 00 00 >.n =3D ....n =3D .=
..<
000030 0a 6e 20 3d 20 00 00 00 0a 6e 20 3d 20 00 00 00 >.n =3D ....n =3D .=
..<
000040 0a >.<
000041
module output;
from FIO import WriteString, WriteCardinal, WriteLine, StdOut;
procedure WriteOut(n :CARDINAL);
begin
WriteString(StdOut, "n = ");
WriteCardinal(StdOut, n);
WriteLine(StdOut)
end WriteOut;
begin
WriteString(StdOut, "Counting in gm2: ");
WriteOut(0);
WriteOut(1);
WriteOut(2);
WriteOut(3);
WriteOut(1000);
WriteOut(1024)
end output.
