bugfix & test

1 files changed, 5 insertions, 13 deletions

diff --git a/t/1.pas b/t/1.pas
index 0275bbf..ece501e 100644
--- a/t/1.pas
+++ b/t/1.pas
@@ -1,17 +1,9 @@
 program a;
-VAR
-    f : integer;
-    g : real;
-    h : boolean;
-    j : integer;
 
-function test(a:integer;b:string):char;
-var s1:real;
+function test(a:integer;b:char;c:real;):integer;
 begin
-    f:=b;
-    g:=c;
-    if g<=c then
-    h:=ture
-    else
-    h:=false;
+    a:=1;
+    b:='a';
+    c:=3.5;
+    test:=6;
 end;