1327952Sdim{
2277323Sdim Copyright 2008-2023 Free Software Foundation, Inc.
3353358Sdim
4353358Sdim This program is free software; you can redistribute it and/or modify
5353358Sdim it under the terms of the GNU General Public License as published by
6277323Sdim the Free Software Foundation; either version 3 of the License, or
7277323Sdim (at your option) any later version.
8277323Sdim
9321369Sdim This program is distributed in the hope that it will be useful,
10277323Sdim but WITHOUT ANY WARRANTY; without even the implied warranty of
11288943Sdim MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12327952Sdim GNU General Public License for more details.
13288943Sdim
14277323Sdim You should have received a copy of the GNU General Public License
15277323Sdim along with this program.  If not, see <http://www.gnu.org/licenses/>.
16277323Sdim}
17277323Sdim
18327952Sdimprogram integers;
19277323Sdim
20327952Sdim
21277323Sdimfunction add(a,b : integer) : integer;
22277323Sdimbegin
23277323Sdim  add:=a+b;
24327952Sdimend;
25327952Sdim
26277323Sdimfunction sub(a,b : integer) : integer;
27327952Sdimbegin
28288943Sdim  sub:=a-b;
29327952Sdimend;
30277323Sdim
31327952Sdimvar
32327952Sdim  i, j, k, l : integer;
33327952Sdim
34341825Sdimbegin
35327952Sdim  i := 0;
36341825Sdim  j := 0;
37277323Sdim  k := 0;
38277323Sdim  l := 0; { set breakpoint 1 here }
39277323Sdim  i := 1;
40277323Sdim  j := 2;
41277323Sdim  k := 3;
42277323Sdim  l := k;
43277323Sdim
44277323Sdim  i := j + k;
45341825Sdim
46277323Sdim  j := 0; { set breakpoint 2 here }
47341825Sdim  k := 0;
48341825Sdim  l := add(i,j);
49341825Sdim  l := sub(i,j);
50341825Sdim
51341825Sdimend.
52341825Sdim