-- { dg-do run }
-- { dg-options "-O" }

with Concat5_Pkg1; use Concat5_Pkg1;

procedure Concat5 is
begin
  Scan ("-RTS=none");
end;