blob: f3fcac977d2760fd5b7fed205b2a0f079ce15cc4 [file] [log] [blame]
-- { 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 } }