mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-02 20:33:40 +02:00
a14ceba791
that may trigger JVM bytecode verification errors if they are used
before they are initialised (this includes passing them as a "var"
parameter) + test
* sorted -CT parameters alphabetically and alligned them
git-svn-id: trunk@25387 -
60 lines
657 B
ObjectPascal
60 lines
657 B
ObjectPascal
program tinitvar;
|
|
|
|
{$namespace org.freepascal.test.tinitvar}
|
|
|
|
type
|
|
tenum = (ta,tb,tc);
|
|
|
|
procedure varpara(
|
|
var by: byte;
|
|
var si: shortint;
|
|
var mi: smallint;
|
|
var wo: word;
|
|
var li: longint;
|
|
var ca: cardinal;
|
|
var i6: int64;
|
|
var qw: qword;
|
|
var e: tenum;
|
|
var sg: single;
|
|
var db: double;
|
|
var c: ansichar;
|
|
var wc: widechar);
|
|
begin
|
|
end;
|
|
|
|
procedure test;
|
|
var
|
|
by: byte;
|
|
si: shortint;
|
|
mi: smallint;
|
|
wo: word;
|
|
li: longint;
|
|
ca: cardinal;
|
|
i6: int64;
|
|
qw: qword;
|
|
e: tenum;
|
|
sg: single;
|
|
db: double;
|
|
c: ansichar;
|
|
wc: widechar;
|
|
begin
|
|
varpara(
|
|
by,
|
|
si,
|
|
mi,
|
|
wo,
|
|
li,
|
|
ca,
|
|
i6,
|
|
qw,
|
|
e,
|
|
sg,
|
|
db,
|
|
c,
|
|
wc
|
|
);
|
|
end;
|
|
|
|
begin
|
|
test;
|
|
end. |