diff --git a/.gitattributes b/.gitattributes
index 047a610a5b..8fd42a1826 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -6322,6 +6322,7 @@ tests/webtbs/tw4277.pp svneol=native#text/plain
 tests/webtbs/tw4290.pp svneol=native#text/plain
 tests/webtbs/tw4294.pp svneol=native#text/plain
 tests/webtbs/tw4308.pp svneol=native#text/plain
+tests/webtbs/tw4330.pp svneol=native#text/plain
 tests/webtbs/tw4332.pp svneol=native#text/plain
 tests/webtbs/tw4336.pp svneol=native#text/plain
 tests/webtbs/tw4350.pp svneol=native#text/plain
diff --git a/compiler/scandir.pas b/compiler/scandir.pas
index 9240af3af2..b626557200 100644
--- a/compiler/scandir.pas
+++ b/compiler/scandir.pas
@@ -182,6 +182,26 @@ implementation
          end;
       end;
 
+    procedure dir_a1;
+      begin
+        aktpackrecords:=1;
+      end;
+
+    procedure dir_a2;
+      begin
+        aktpackrecords:=2;
+      end;
+
+    procedure dir_a4;
+      begin
+        aktpackrecords:=4;
+      end;
+
+    procedure dir_a8;
+      begin
+        aktpackrecords:=8;
+      end;
+
     procedure dir_asmmode;
       var
         s : string;
@@ -1077,6 +1097,10 @@ implementation
 
     procedure InitScannerDirectives;
       begin
+        AddDirective('A1',directive_all, @dir_a1);
+        AddDirective('A2',directive_all, @dir_a2);
+        AddDirective('A4',directive_all, @dir_a4);
+        AddDirective('A8',directive_all, @dir_a8);
         AddDirective('ALIGN',directive_all, @dir_align);
 {$ifdef m68k}
         AddDirective('APPID',directive_all, @dir_appid);
diff --git a/tests/webtbs/tw4330.pp b/tests/webtbs/tw4330.pp
new file mode 100755
index 0000000000..260408ad4b
--- /dev/null
+++ b/tests/webtbs/tw4330.pp
@@ -0,0 +1,17 @@
+{ %opt=-Sew }
+
+{$A+}
+{$A-}
+{$A1}
+{$A2}
+{$A4}
+{$A8}
+{$ALIGN ON}
+{$ALIGN OFF}
+{$ALIGN 1}
+{$ALIGN 2}
+{$ALIGN 4}
+{$ALIGN 8}
+
+begin
+end.