fpc/tests/webtbs/uw9113a.pp
Jonas Maebe 20a35f9701 * fixed public/export support for initialised variables/typed
constants (mantis #9113)

git-svn-id: trunk@7772 -
2007-06-22 17:10:15 +00:00

9 lines
155 B
ObjectPascal

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