mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-25 17:59:06 +02:00
16 lines
339 B
ObjectPascal
16 lines
339 B
ObjectPascal
PROGRAM NoLabel; { this program compiles fine with TP but not with FP }
|
|
LABEL
|
|
N1,
|
|
N2,
|
|
FAIL, { this is a reserved word in constructors only! - FP fails here
|
|
}
|
|
More; { label not defined - FP fails, but a warning is enough for that
|
|
}
|
|
{ since label referenced nowhere }
|
|
BEGIN
|
|
N1: Write;
|
|
N2: Write;
|
|
FAIL: Write;
|
|
END.
|
|
|