* new bugs

tests/webtbs/tw3131.pp

@@ -0,0 +1,19 @@
+{ Source provided for Free Pascal Bug Report 3131 }
+{ Submitted by "Arnstein Prytz" on  2004-06-02 }
+{ e-mail: [email protected] }
+program tmp;
+
+procedure l;
+  label l1;
+  begin
+    l1 : WRITELN( 'Label L1' );
+  end;
+
+procedure a; assembler;
+  asm
+    @_quit : ;
+  end;
+
+begin
+end.
+

tests/webtbs/tw3393.pp

@@ -0,0 +1,12 @@
+{ Source provided for Free Pascal Bug Report 3393 }
+{ Submitted by "David Emerson" on  2004-11-20 }
+{ e-mail: [email protected] }
+var
+  array_of_longint : array [0..5] of longint;
+  longint_file : file of longint;
+
+begin
+  for i := 0 to 5 do
+    write (longint_file, array_of_longint[i]);
+end.
+