mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
15 lines
307 B
ObjectPascal
15 lines
307 B
ObjectPascal
{ %FAIL }
|
|
|
|
PROGRAM tw39849;
|
|
{$APPTYPE CONSOLE}
|
|
VAR
|
|
F: TEXT;
|
|
BEGIN
|
|
ASSIGN(F, 'doublepoint.txt');
|
|
REWRITE(F);
|
|
WRITELN(F, 'Hello'); { ',' is legal - compiler just do its job }
|
|
WRITELN(F: 'Hello'); { ':' is not legal - compiler should emit an error, but 3.2.2 fail to }
|
|
CLOSE(F);
|
|
END.
|
|
|