gcc/testsuite/gnat.dg/string_merge1.adb

   1 -- { dg-do compile }
   2 -- { dg-require-effective-target string_merging }
   3 -- { dg-options "-O1 -fmerge-all-constants" }
   4
   5 procedure String_Merge1 is
   6    procedure Process (X : String);
   7    pragma Import (Ada, Process);
   8 begin
   9    Process ("ABCD");
  10 end;
  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 } }