mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-09 19:01:30 +01:00
24 lines
350 B
ObjectPascal
24 lines
350 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 2065 }
|
|
{ Submitted by "Lavergne Thomas" on 2002-08-01 }
|
|
{ e-mail: thomas.lavergne@laposte.net }
|
|
program test;
|
|
|
|
{$APPTYPE CONSOLE}
|
|
{$LONGSTRINGS ON}
|
|
|
|
type
|
|
TRec = record
|
|
S: string;
|
|
P: Pointer;
|
|
end;
|
|
|
|
const
|
|
MAX_SIZE = 2;
|
|
|
|
var
|
|
A: array[0..MAX_SIZE - 1] of TRec;
|
|
|
|
begin
|
|
WriteLn(A[0].S);
|
|
end.
|