소스 검색

* New test verifying that Internal Error 2013032603 no longer occurs for "Str"

J. Gareth "Curious Kit" Moreton 4 달 전
부모
커밋
f8f7867198
1개의 변경된 파일9개의 추가작업 그리고 0개의 파일을 삭제
  1. 9 0
      tests/webtbf/tw41249.pp

+ 9 - 0
tests/webtbf/tw41249.pp

@@ -0,0 +1,9 @@
+{ %FAIL }
+program tw41249;
+var
+  c: Char;
+  s: string;
+
+begin
+  Str(c, s); // Ensure a compiler error occurs and not Internal error 2013032603
+end.