1-- { dg-do compile }
2-- { dg-require-effective-target string_merging }
3-- { dg-options "-O1 -fmerge-all-constants" }
4
5procedure String_Merge1 is
6   procedure Process (X : String);
7   pragma Import (Ada, Process);
8begin
9   Process ("ABCD");
10end;
11
12-- We expect something like:
13
14-- .section  .rodata.str1.1,"aMS",@progbits,1
15-- .LC1:
16--     .string "ABCD"
17
18-- { dg-final { scan-assembler-times "\\.rodata\\.str" 1 } }
19