-- { 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 } }