1 files changed, 27 insertions, 0 deletions
diff --git a/avx512-0037785/tests/webtbs/tw34027.pp b/avx512-0037785/tests/webtbs/tw34027.pp
new file mode 100644
index 0000000000..feacc2e199
--- /dev/null
+++ b/avx512-0037785/tests/webtbs/tw34027.pp
@@ -0,0 +1,27 @@
+uses
+  strings;
+
+type tz = record
+       name : pchar;
+     end;
+const aa :array[0..2] of char = 'aa'#0;
+
+const testArrZ : array [0..4] of tz = (
+     (name: @aa), { Ok }
+     (name: pchar(@aa)), { Ok }
+     (name: pchar(@aa)+1),
+     (name: pchar(@aa)+1+1),
+     (name: pchar(@aa)+1+1-1)
+     );
+
+var b : pchar;
+
+begin
+  b:=pchar(@aa)+1; {Ok}
+  if strlen(testArrZ[2].name)<>1 then
+    halt(1);
+  if strlen(testArrZ[3].name)<>0 then
+    halt(2);
+  if strlen(testArrZ[4].name)<>1 then
+    halt(2);
+end.