no message

tests/webtbs/tw3576.pp

@@ -0,0 +1,14 @@
+{ Source provided for Free Pascal Bug Report 3576 }
+{ Submitted by "Simon Kissel" on  2005-01-19 }
+{ e-mail: [email protected] }
+
+{$mode delphi}
+{$asmmode intel}
+
+function Q_CompStr(const S1, S2: string): Integer;assembler;
+asm
+end;
+
+begin
+  Q_CompStr('','');
+end.