* fixed typos

tests/test/cg/taddcard.pp

@@ -10,7 +10,7 @@
 
 procedure fail;
 begin
-  Fail;
+  WriteLn('Failed!');
   halt(1);
 end;
 

tests/test/cg/taddlong.pp

@@ -7,7 +7,7 @@
 
 procedure fail;
 begin
-  Fail;
+  WriteLn('Failed!');
   halt(1);
 end;
 

tests/test/cg/taddreal.pp

@@ -26,7 +26,7 @@
 {$E+}
 procedure fail;
 begin
-  Fail;
+  WriteLn('Failed!');
   halt(1);
 end;
 
@@ -266,7 +266,10 @@ end.
 
 {
   $Log$
-  Revision 1.4  2002-03-05 21:55:11  carl
+  Revision 1.5  2002-04-13 21:02:38  carl
+  * fixed typos
+
+  Revision 1.4  2002/03/05 21:55:11  carl
   * Adapted for automated testing
 
   Revision 1.3  2001/07/31 01:55:23  carl

tests/test/cg/tadint64.pp

@@ -7,7 +7,7 @@
 
 procedure fail;
 begin
-  Fail;
+  WriteLn('Failed!');
   halt(1);
 end;
 
@@ -339,7 +339,10 @@ end.
 
 {
  $Log$
- Revision 1.3  2002-03-05 21:55:11  carl
+ Revision 1.4  2002-04-13 21:02:48  carl
+ * fixed typos
+
+ Revision 1.3  2002/03/05 21:55:11  carl
  * Adapted for automated testing
 
  Revision 1.2  2001/06/24 23:58:14  carl