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