* fixed stupid typo

tests/test/cg/tcalpvr1.pp

@@ -72,7 +72,7 @@ var
 
   procedure fail;
    begin
-     Fail;
+     WriteLn('Failed!');
      halt(1);
    end;
   
@@ -601,7 +601,10 @@ end.
 
 {
    $Log$
-   Revision 1.1  2002-04-13 11:04:40  carl
+   Revision 1.2  2002-04-13 21:04:10  carl
+   * fixed stupid typo
+
+   Revision 1.1  2002/04/13 11:04:40  carl
    + procedure variable testing (stil not sure about class/object proc. variables)
 
 }

tests/test/cg/tderef.pp

@@ -24,7 +24,7 @@ type
 
 procedure fail;
 begin
-  Fail;
+  Writeln('Failed!');
   halt(1);
 end;
 
@@ -63,7 +63,10 @@ end.
 
 {
    $Log$
-   Revision 1.2  2002-03-05 21:56:02  carl
+   Revision 1.3  2002-04-13 21:04:46  carl
+   * fixed stupid typo
+
+   Revision 1.2  2002/03/05 21:56:02  carl
    * Adapted for automated testing
 
    Revision 1.1  2001/06/30 02:02:06  carl