blob: 98bd38826b2e120a918ca4a1208cf05389caf049 (
plain)
1
2
3
4
5
6
7
8
9
10
|
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;
|