← Back to branch summary

~ubuntu-branches/ubuntu/lucid/fpc/lucid-proposed

« back to all changes in this revision

Viewing changes to fpcsrc/tests/webtbs/tw10757.pp

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-10-09 23:29:00 UTC
  • mfrom: (4.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20081009232900-553f61m37jkp6upv
Tags: 2.2.2-4
http://bugs.debian.org/498882
[ Torsten Werner ]
* Update ABI version in fpc-depends automatically.
* Remove empty directories from binary package fpc-source.

[ Mazen Neifer ]
* Removed leading path when calling update-alternatives to remove a Linitian
  error.
* Fixed clean target.
* Improved description of packages. (Closes: #498882)

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/tests/webtbs/tw10757.pp
 
1
{$MODE Objfpc}
 
2
 
 
3
type
 
4
  Ta = class 
 
5
    T: array of Double;
 
6
  end;
 
7
 
 
8
var
 
9
  a: Ta;
 
10
 
 
11
function P:Ta;
 
12
begin
 
13
  Result := a;
 
14
end;
 
15
 
 
16
function M: Double;
 
17
begin
 
18
  Result := 300;
 
19
end;
 
20
 
 
21
var
 
22
  i: Integer;
 
23
 
 
24
begin
 
25
  a := Ta.Create;
 
26
  SetLength(P.T,2);
 
27
  P.T[0] := 70;
 
28
  P.T[1] := 80;
 
29
  i := 0;
 
30
  while (i < Length(P.T)) and (M > P.T[i]) do
 
31
    Inc(i);
 
32
  if (i<>2) then
 
33
    halt(1);
 
34
end.