mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 00:29:24 +02:00
* fixed stupid typo
This commit is contained in:
parent
11f178bbf9
commit
97445eca0e
@ -72,7 +72,7 @@ var
|
|||||||
|
|
||||||
procedure fail;
|
procedure fail;
|
||||||
begin
|
begin
|
||||||
Fail;
|
WriteLn('Failed!');
|
||||||
halt(1);
|
halt(1);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -601,7 +601,10 @@ end.
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$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)
|
+ procedure variable testing (stil not sure about class/object proc. variables)
|
||||||
|
|
||||||
}
|
}
|
@ -24,7 +24,7 @@ type
|
|||||||
|
|
||||||
procedure fail;
|
procedure fail;
|
||||||
begin
|
begin
|
||||||
Fail;
|
Writeln('Failed!');
|
||||||
halt(1);
|
halt(1);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -63,7 +63,10 @@ end.
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$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
|
* Adapted for automated testing
|
||||||
|
|
||||||
Revision 1.1 2001/06/30 02:02:06 carl
|
Revision 1.1 2001/06/30 02:02:06 carl
|
||||||
|
Loading…
Reference in New Issue
Block a user