mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-19 06:19:32 +02:00
30 lines
673 B
ObjectPascal
30 lines
673 B
ObjectPascal
{ $OPT=-St }
|
|
|
|
Program SttcTest;
|
|
{ Note: I've cut a lot out of this program, it did originally have
|
|
constructors, destructors and instanced objects, but this
|
|
is the minimum required to produce the problem, and I think
|
|
that this should work, unless I've misunderstood the use of
|
|
the static keyword. }
|
|
Type
|
|
TObjectType1 = Object
|
|
Procedure Setup; static;
|
|
Procedure Weird; static;
|
|
End;
|
|
|
|
Procedure TObjectType1.Setup;
|
|
Begin
|
|
End;
|
|
|
|
Procedure TObjectType1.Weird;
|
|
Begin
|
|
End;
|
|
|
|
Begin
|
|
TObjectType1.Setup;
|
|
TObjectType1.Weird;
|
|
TObjectType1.Weird; // GPFs before exiting "Weird"
|
|
Writeln('THE END.');
|
|
End.
|
|
|