fpcsrc/tests/test/tisogoto3.pp


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

{ %fail }
{$mode iso}
unit tisogoto3;

  interface

    label
      1;
      
  implementation
  
end.