diff --git a/tests/test/tmacpas4.pp b/tests/test/tmacpas4.pp
new file mode 100644
index 0000000000..6cbf2c96b8
--- /dev/null
+++ b/tests/test/tmacpas4.pp
@@ -0,0 +1,49 @@
+{%NORUN}
+{$MODE MACPAS}
+
+{Tests of mac pascal constructs, concerning compile time constructs}
+
+{** Test Compiler variables **}
+
+{$SETC ADAM := TRUE}
+{$IFC ADAM <> TRUE}
+{$ERRORC Test failed}
+{$ENDC}
+
+{$SETC BERTIL := FALSE}
+{$IFC BERTIL = FALSE}
+{  OK  }
+{$ELSEC}
+{$ERRORC Test failed}
+{$ENDC}
+
+{** Test Defined/Undefined **}
+
+{$IFC UNDEFINED FPC_MACPAS}
+{$ERRORC Test failed}
+{$ENDC}
+
+{$IFC NOT DEFINED FPC_MACPAS}
+{$ERRORC Test failed}
+{$ENDC}
+
+{** Test Push/Pop **}
+
+{$J-}
+
+{$PUSH}
+{$PUSH}
+
+{$J+}
+
+{$POP}
+{$POP}
+
+{$IFC OPTION(J)}
+{$ERRORC $PUSH/$POP doesnt work properly}
+{$ENDC}
+
+program tmacpas4;
+
+begin
+end.