gcc/testsuite/gnat.dg/string_merge1.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

-- { dg-do compile }
-- { dg-require-effective-target string_merging }
-- { 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 } }