← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to fpcsrc/tests/test/tprec12.pp

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/tests/test/tprec12.pp
 
1
{ from gpc tests, original name sam9.pas }
 
2
 
 
3
{$ifdef fpc}
 
4
{$mode macpas}
 
5
{$endif}
 
6
 
 
7
program sam9;
 
8
 
 
9
type
 
10
  e1 = (
 
11
    enum000,
 
12
    enum001,
 
13
    enum002,
 
14
    enum003,
 
15
    enum004,
 
16
    enum005,
 
17
    enum006,
 
18
    enum007,
 
19
    enum008,
 
20
    enum009,
 
21
    enum010,
 
22
    enum011,
 
23
    enum012,
 
24
    enum013,
 
25
    enum014,
 
26
    enum015,
 
27
    enum016,
 
28
    enum017,
 
29
    enum018,
 
30
    enum019,
 
31
    enum020,
 
32
    enum021,
 
33
    enum022,
 
34
    enum023,
 
35
    enum024,
 
36
    enum025,
 
37
    enum026,
 
38
    enum027,
 
39
    enum028,
 
40
    enum029,
 
41
    enum030,
 
42
    enum031,
 
43
    enum032,
 
44
    enum033,
 
45
    enum034,
 
46
    enum035,
 
47
    enum036,
 
48
    enum037,
 
49
    enum038,
 
50
    enum039,
 
51
    enum040,
 
52
    enum041,
 
53
    enum042,
 
54
    enum043,
 
55
    enum044,
 
56
    enum045,
 
57
    enum046,
 
58
    enum047,
 
59
    enum048,
 
60
    enum049,
 
61
    enum050,
 
62
    enum051,
 
63
    enum052,
 
64
    enum053,
 
65
    enum054,
 
66
    enum055,
 
67
    enum056,
 
68
    enum057,
 
69
    enum058,
 
70
    enum059,
 
71
    enum060,
 
72
    enum061,
 
73
    enum062,
 
74
    enum063,
 
75
    enum064,
 
76
    enum065,
 
77
    enum066,
 
78
    enum067,
 
79
    enum068,
 
80
    enum069,
 
81
    enum070,
 
82
    enum071,
 
83
    enum072,
 
84
    enum073,
 
85
    enum074,
 
86
    enum075,
 
87
    enum076,
 
88
    enum077,
 
89
    enum078,
 
90
    enum079,
 
91
    enum080,
 
92
    enum081,
 
93
    enum082,
 
94
    enum083,
 
95
    enum084,
 
96
    enum085,
 
97
    enum086,
 
98
    enum087,
 
99
    enum088,
 
100
    enum089,
 
101
    enum090,
 
102
    enum091,
 
103
    enum092,
 
104
    enum093,
 
105
    enum094,
 
106
    enum095,
 
107
    enum096,
 
108
    enum097,
 
109
    enum098,
 
110
    enum099,
 
111
    enum100,
 
112
    enum101,
 
113
    enum102,
 
114
    enum103,
 
115
    enum104,
 
116
    enum105,
 
117
    enum106,
 
118
    enum107,
 
119
    enum108,
 
120
    enum109,
 
121
    enum110,
 
122
    enum111,
 
123
    enum112,
 
124
    enum113,
 
125
    enum114,
 
126
    enum115,
 
127
    enum116,
 
128
    enum117,
 
129
    enum118,
 
130
    enum119,
 
131
    enum120,
 
132
    enum121,
 
133
    enum122,
 
134
    enum123,
 
135
    enum124,
 
136
    enum125,
 
137
    enum126,
 
138
    enum127,
 
139
    enum128 { Remove this and it works !}
 
140
  );
 
141
 
 
142
  r1 = 0 .. 128;
 
143
 
 
144
  t1 = packed record { has to be packed }
 
145
    case integer of
 
146
        1: (f1: e1);
 
147
        2: (f2: r1);
 
148
      end;
 
149
 
 
150
var
 
151
  v1: t1;
 
152
 
 
153
procedure foo;
 
154
begin
 
155
  v1.f1 := enum000;
 
156
  v1.f2 := 127;
 
157
  v1.f2 := 128;
 
158
end;
 
159
 
 
160
begin
 
161
  foo;
 
162
  if v1.f1 = enum128 then
 
163
    writeln ( 'OK' )
 
164
  else
 
165
    begin
 
166
      writeln ( 'failed' );
 
167
      halt(1)
 
168
    end
 
169
end.