gdb/testsuite/gdb.base/step-line.inp

   1 # Test step/next in presence of #line directives
   2 # Copyright 2001, 2007 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 2 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, write to the Free Software
  16 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  17
  18 # We pretend that this file has been transformed by some other tool
  19 # into step-line.c.
  20
  21 FUNCTION f1 (i : INTEGER);
  22   BEGIN
  23     i = f2 (i);
  24     i = f2 (i);
  25     RETURN (i);
  26   END
  27
  28 FUNCTION f2 (i : INTEGER);
  29   BEGIN
  30     VARIABLE j : INTEGER
  31     j = i;
  32     j = SUCC (j);
  33     j = j - i;
  34     RETURN (j);
  35   END
  36
  37 BEGIN
  38   VARIABLE i : INTEGER;;
  39
  40 END