gdb/testsuite/gdb.pascal/floats.pas

   1 {
   2  Copyright 2008-2015 Free Software Foundation, Inc.
   3
   4  This program is free software; you can redistribute it and/or modify
   5  it under the terms of the GNU General Public License as published by
   6  the Free Software Foundation; either version 3 of the License, or
   7  (at your option) any later version.
   8
   9  This program is distributed in the hope that it will be useful,
  10  but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12  GNU General Public License for more details.
  13
  14  You should have received a copy of the GNU General Public License
  15  along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16 }
  17
  18
  19 program floats;
  20
  21 var
  22   i, j, k, l : integer;
  23   r, s, t, u : real;
  24
  25 begin
  26   i := 0;
  27   j := 0;
  28   k := 0;
  29   r := 0.0;
  30   s := 0.0;
  31   t := 0.0;
  32   u := 0.0;
  33   l := 0;
  34   i := 1; { set breakpoint 1 here }
  35   r := 1.25;
  36   s := 2.2;
  37   t := -3.2;
  38   u := 78.3;
  39   l := 1;
  40   i := 1;
  41   u := pi; { set breakpoint 2 here }
  42   r := cos(u);
  43   s := sin(u);
  44   u := pi / 2;
  45   r := cos(u);
  46   s := sin(u);
  47 end.