git-svn-id: trunk@26300 -
@@ -1,3 +1,4 @@
+{ %OPT=-Oonoconstprop }
{ Old file: tbs0165.pp }
{ missing range check code for enumerated types. OK 0.99.9 (PFV) }
@@ -1,4 +1,4 @@
-{ %version=1.1 }
+{ %opt=-Oonoconstprop }
{$mode objfpc}
{$r+}
uses
-{ %opt=-O-3 }
+{ %opt=-O-3 -Oonoconstprop }
{ %result=201 }
{$inline on}
@@ -1,4 +1,5 @@
{ %RESULT=200 }
{****************************************************************}
{ CODE GENERATOR TEST PROGRAM }
{ %result=215 }
{$q+}
{ Source provided for Free Pascal Bug Report 2690 }