On Mär 17 2025, Robert Dubner wrote:
> diff --git a/gcc/testsuite/cobol.dg/group1/check_88.cob
> b/gcc/testsuite/cobol.dg/group1/check_88.cob
> new file mode 100644
> index 000000000000..4a7723eb92a3
> --- /dev/null
> +++ b/gcc/testsuite/cobol.dg/group1/check_88.cob
> @@ -0,0 +1,101 @@
> +*> { dg-do run }
> +*> { dg-output {\-><\-(\n|\r\n|\r)} }
> +*> { dg-output {\-> <\-(\n|\r\n|\r)} }
> +*> { dg-output {\->"""<\-(\n|\r\n|\r)} }
> +*> { dg-output {\->000<\-(\n|\r\n|\r)} }
> +*> { dg-output {\->ÿÿÿ<\-(\n|\r\n|\r)} }
> +*> { dg-output { (\n|\r\n|\r)} }
> +*> { dg-output {\-><\-(\n|\r\n|\r)} }
> +*> { dg-output {\-> <\-(\n|\r\n|\r)} }
> +*> { dg-output {\->""""<\-(\n|\r\n|\r)} }
> +*> { dg-output {\->0000<\-(\n|\r\n|\r)} }
> +*> { dg-output {\->ÿÿÿÿ<\-(\n|\r\n|\r)} }
That doesn't match. The output contains "\377\377\377\377", but "ÿ" is
"\303\277".
--
Andreas Schwab, SUSE Labs, sch...@suse.de
GPG Key fingerprint = 0196 BAD8 1CE9 1970 F4BE 1748 E4D4 88E3 0EEA B9D7
"And now for something completely different."
