diff --git a/.gitattributes b/.gitattributes
index e125651aa1..cd6b49b4a5 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -8221,6 +8221,8 @@ tests/test/tobjc10.pp svneol=native#text/plain
 tests/test/tobjc11.pp svneol=native#text/plain
 tests/test/tobjc12.pp svneol=native#text/plain
 tests/test/tobjc13.pp svneol=native#text/plain
+tests/test/tobjc13a.pp svneol=native#text/plain
+tests/test/tobjc13b.pp svneol=native#text/plain
 tests/test/tobjc14.pp svneol=native#text/plain
 tests/test/tobjc15.pp svneol=native#text/plain
 tests/test/tobjc16.pp svneol=native#text/plain
diff --git a/tests/test/tobjc13a.pp b/tests/test/tobjc13a.pp
new file mode 100644
index 0000000000..8ab293dde8
--- /dev/null
+++ b/tests/test/tobjc13a.pp
@@ -0,0 +1,19 @@
+{ %fail }
+{ %target=darwin }
+{ %cpu=powerpc,i386 }
+{ %norun }
+
+{$mode objfpc}
+{$modeswitch objectivec1}
+
+type
+  ta = objcclass(NSObject)
+    procedure test2(l: longint); varargs; message 'class:';
+  end;
+
+  procedure ta.test2(l: longint);
+   begin
+   end;
+
+begin
+end.
diff --git a/tests/test/tobjc13b.pp b/tests/test/tobjc13b.pp
new file mode 100644
index 0000000000..55b6ac7022
--- /dev/null
+++ b/tests/test/tobjc13b.pp
@@ -0,0 +1,19 @@
+{ %fail }
+{ %target=darwin }
+{ %cpu=powerpc,i386 }
+{ %norun }
+
+{$mode objfpc}
+{$modeswitch objectivec1}
+
+type
+  ta = objcclass(NSObject)
+    procedure test(l: longint; a: array of const); message 'class:';
+  end;
+
+  procedure ta.test(l: longint; a: array of const);
+   begin
+   end;
+
+begin
+end.