bugfix and comment support

1 files changed, 13 insertions, 6 deletions

diff --git a/t/trivial.pas b/t/trivial.pas
index 72f2d40..3be4ca5 100644
--- a/t/trivial.pas
+++ b/t/trivial.pas
@@ -5,17 +5,12 @@ const
     gi=5;
     gr=3.1415;
     gs='nagi';
-var         {this is comment}
+var
     gvi:integer;
     gvf:real;
     gvp:^char;
     gva:array[0..4] of integer;
 
-(* multiline 
-
-
-comments *)
-
 function arithmetic_test(a:integer;b:char;c:real):integer;
 var
     d:integer;
@@ -223,3 +218,15 @@ begin
     pa^.m4[1].m1[2]:=1234;
     record_test:=a.m3[6]+pa^.m3[a.m1]+a.m4[1].m1[2];
 end;
+
+(**)function {}comment_test({}):integer{};(**)
+{comment}
+begin{
+begin(* this is in a comment *)
+end;
+}
+comment_test:=1
+(*
+{begin end; also in a comment}
+*)(**)(****)(* *)(***)
+end;