no message

tests/webtbs/tw3158.pp

@@ -0,0 +1,11 @@
+{ Source provided for Free Pascal Bug Report 3158 }
+{ Submitted by "Michalis Kamburelis" on  2004-06-11 }
+{ e-mail: [email protected] }
+{$R+}
+{$Q+}
+
+var A:Single;
+begin
+ A:=Exp(800);
+ Writeln(A);
+end.