gcc/testsuite/gnat.dg/concat5_pkg2.adb

package body Concat5_Pkg2 is

  procedure Compare (S : String) is
  begin
    if S /= "option -RTS=none should start with '--'" then
      raise Program_Error;
    end if;
  end;

end Concat5_Pkg2;