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