@@ -1,7 +1,8 @@
+{ %VERSION=1.1 }
+
uses
erroru;
-{$ifdef HASOUT}
type
tr1 = record
l1,l2 : longint;
@@ -88,8 +89,3 @@ begin
if a<>'Now it''s another ansistring' then
do_error(1105);
end.
-{$else}
-begin
- Writeln('No out parameter support');
-end.
-{$endif HASOUT}