* test for TYPE in intel assembler

tests/tbs/tbs0322.pp

@@ -0,0 +1,24 @@
+{$ifdef fpc}{$asmmode intel}{$endif}
+var
+  boxes : record
+    pbox : longint;
+    pbox2 : longint;
+  end;
+var
+  s1,s2 : longint;
+begin
+asm
+  mov s1,type boxes.pbox
+  mov s2,type boxes
+end;
+  if s1<>sizeof(boxes.pbox) then
+   begin
+     writeln('Wrong size for TYPE');
+     halt(1);
+   end;
+  if s2<>sizeof(boxes) then
+   begin
+     writeln('Wrong size for TYPE');
+     halt(1);
+   end;
+end.