fpcsrc/tests/tbs/tb0099.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{ Old file: tbs0118.pp }
{ Procedural vars cannot be assigned nil ?              OK 0.99.6 (FK) }

program Test1;

  type
    ExampleProc = procedure;

  var
    Eg: ExampleProc;

  begin
    Eg := nil;  { This produces a compiler error }
  end.