On Sep 14 2018, Bernd Edlinger <bernd.edlin...@hotmail.de> wrote:
> diff -Npur gcc/testsuite/gnat.dg/string_merge1.adb
> gcc/testsuite/gnat.dg/string_merge1.adb
> --- gcc/testsuite/gnat.dg/string_merge1.adb 1970-01-01 01:00:00.000000000
> +0100
> +++ gcc/testsuite/gnat.dg/string_merge1.adb 2018-08-26 16:31:12.650271931
> +0200
> @@ -0,0 +1,19 @@
> +-- { dg-do compile }
> +-- { dg-options "-O1 -fmerge-all-constants" }
> +
> +procedure String_Merge1 is
> + procedure Process (X : String);
> + pragma Import (Ada, Process);
> +begin
> + Process ("ABCD");
> +end;
> +
> +-- We expect something like:
> +
> +-- .section .rodata.str1.1,"aMS",@progbits,1
> +-- .LC1:
> +-- .string "ABCD"
> +
> +-- { dg-final { scan-assembler-times "\\.rodata\\.str" 1 } }
> +-- { dg-final { scan-assembler-times "\\.string" 1 } }
> +-- { dg-final { scan-assembler-times "\"ABCD\"" 1 } }
FAIL: gnat.dg/string_merge1.adb scan-assembler-times \\.string 1
$ grep ABCD string_merge1.s
stringz "ABCD"
Andreas.
--
Andreas Schwab, sch...@linux-m68k.org
GPG Key fingerprint = 7578 EB47 D4E5 4D69 2510 2552 DF73 E780 A9DA AEC1
"And now for something completely different."
