git-svn-id: trunk@32873 -
@@ -10,6 +10,11 @@
{ this test is Turbo Pascal 7 compatible }
+{$ifdef FPC}
+{ FPC needs $goto on to accept labels and gotos }
+{$goto on}
+{$endif FPC}
+
program tfarcal3;
{$F+}
@@ -8,6 +8,11 @@
manually disassembles the instruction, checks that it is of the correct type
and then skips the instruction. }
program tfarcal4;