no message

tests/webtbf/tw3126.pp

@@ -0,0 +1,12 @@
+{ Source provided for Free Pascal Bug Report 3126 }
+{ Submitted by "Christian Iversen" on  2004-05-30 }
+{ e-mail: [email protected] }
+Program test;
+
+Var
+  P : PChar;
+Begin
+  Case P^ Of
+    'A'-'Z' : ;
+  End;
+End.