mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 18:47:52 +02:00
19 lines
342 B
ObjectPascal
19 lines
342 B
ObjectPascal
PROGRAM initializationBug( INPUT, OUTPUT );
|
|
{$H+}
|
|
CONST
|
|
bufferSize = 8;
|
|
tableSize = 2;
|
|
|
|
TYPE
|
|
bufferRecord = RECORD
|
|
stringBuffer : String;
|
|
characterBuffer : ARRAY[ 1..bufferSize ] OF CHAR;
|
|
END;
|
|
|
|
VAR
|
|
bufferTable : ARRAY[ 1..tableSize ] OF bufferRecord;
|
|
|
|
BEGIN
|
|
WRITELN( '< INITIALIZATION BUG HAS NOT OCCURRED!' );
|
|
END.
|