* test for mr 724

tests/tbs/tb0715.pp

@@ -0,0 +1,9 @@
+var
+	e: (ab, abcd);
+	code: int32;
+begin
+	val('ab'#4'd', e, code);
+	if code = 0 then writeln('matches ', e) else writeln('matches nothing, code ', code);
+    if code <> 3 then
+      halt(1);
+end.