Subversion Repositories openrisc

{

{

 Copyright 2008, 2009, 2010 Free Software Foundation, Inc.

 Copyright 2008, 2009, 2010 Free Software Foundation, Inc.

 This program is free software; you can redistribute it and/or modify

 This program is free software; you can redistribute it and/or modify

 it under the terms of the GNU General Public License as published by

 it under the terms of the GNU General Public License as published by

 the Free Software Foundation; either version 3 of the License, or

 the Free Software Foundation; either version 3 of the License, or

 (at your option) any later version.

 (at your option) any later version.

 This program is distributed in the hope that it will be useful,

 This program is distributed in the hope that it will be useful,

 but WITHOUT ANY WARRANTY; without even the implied warranty of

 but WITHOUT ANY WARRANTY; without even the implied warranty of

 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 GNU General Public License for more details.

 GNU General Public License for more details.

 You should have received a copy of the GNU General Public License

 You should have received a copy of the GNU General Public License

 along with this program.  If not, see <http://www.gnu.org/licenses/>.

 along with this program.  If not, see <http://www.gnu.org/licenses/>.

}

}

program floats;

program floats;

var

var

  i, j, k, l : integer;

  i, j, k, l : integer;

  r, s, t, u : real;

  r, s, t, u : real;

begin

begin

  i := 0;

  i := 0;

  j := 0;

  j := 0;

  k := 0;

  k := 0;

  r := 0.0;

  r := 0.0;

  s := 0.0;

  s := 0.0;

  t := 0.0;

  t := 0.0;

  u := 0.0;

  u := 0.0;

  l := 0;

  l := 0;

  i := 1; { set breakpoint 1 here }

  i := 1; { set breakpoint 1 here }

  r := 1.25;

  r := 1.25;

  s := 2.2;

  s := 2.2;

  t := -3.2;

  t := -3.2;

  u := 78.3;

  u := 78.3;

  l := 1;

  l := 1;

  i := 1;

  i := 1;

  u := pi; { set breakpoint 2 here }

  u := pi; { set breakpoint 2 here }

  r := cos(u);

  r := cos(u);

  s := sin(u);

  s := sin(u);

  u := pi / 2;

  u := pi / 2;

  r := cos(u);

  r := cos(u);

  s := sin(u);

  s := sin(u);

end.

end.