summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorNagi5Yeq <wu@x-nagi.com>2020-05-30 18:27:16 +0800
committerNagi5Yeq <wu@x-nagi.com>2020-05-30 18:27:16 +0800
commitfd21f31e654a97027799f0fdf3518fd639415121 (patch)
treea88dd5a89899fd53909772795382c899b4ec014a /t
parentfb1fed0f275d1673cf6fb6c3887bc8919e1849d7 (diff)
add zeroinitializer for global variable
Diffstat (limited to 't')
-rw-r--r--t/trivial.pas15
1 files changed, 9 insertions, 6 deletions
diff --git a/t/trivial.pas b/t/trivial.pas
index fb97adc..68e4a53 100644
--- a/t/trivial.pas
+++ b/t/trivial.pas
@@ -6,7 +6,10 @@ const
gr=3.1415;
gs='nagi';
var
- gv:integer;
+ gvi:integer;
+ gvf:real;
+ gvp:^char;
+ gva:array[0..4] of integer;
function arithmetic_test(a:integer;b:char;c:real):integer;
var
@@ -138,8 +141,8 @@ end;
function name_test_global():integer;
begin
- gv:=1;
- name_test_global:=gv+gb+gc+gi+gr+gs[3];
+ gvi:=1;
+ name_test_global:=gvi+gb+gc+gi+gr+gs[3];
end;
function name_test_local():integer;
@@ -150,10 +153,10 @@ const
gr=2.71828;
gs='Hanjie Wu';
var
- gv:integer;
+ gvi:integer;
begin
- gv:=0;
- name_test_local:=gv+gb+gc+gi+gr+gs[3];
+ gvi:=0;
+ name_test_local:=gvi+gb+gc+gi+gr+gs[3];
end;
function name_test():boolean;