fpcsrc/tests/webtbs/uw9113a.pp


1
2
3
4
5
6
7
8

unit uw9113a;
interface
var
    v1: integer = 1; cvar;
    v2: integer = 2; export name '_v2';
    v3: integer = 3; public name '_v3';
implementation
end.