1 /* This testcase is part of GDB, the GNU debugger. 2 3 Copyright 2018-2020 Free Software Foundation, Inc. 4 5 This program is free software; you can redistribute it and/or modify 6 it under the terms of the GNU General Public License as published by 7 the Free Software Foundation; either version 3 of the License, or 8 (at your option) any later version. 9 10 This program is distributed in the hope that it will be useful, 11 but WITHOUT ANY WARRANTY; without even the implied warranty of 12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 GNU General Public License for more details. 14 15 You should have received a copy of the GNU General Public License 16 along with this program. If not, see <http://www.gnu.org/licenses/>. 17 18 */ 19 20 static int 21 inc (int x) 22 { /* inc.1 */ 23 return x + 1; /* inc.2 */ 24 } /* inc.3 */ 25 26 static int 27 thrice (int (*op)(int), int x) 28 { /* thrice.1 */ 29 x = op (x); /* thrice.2 */ 30 x = op (x); /* thrice.3 */ 31 return op (x); /* thrice.4 */ 32 } /* thrice.5 */ 33 34 int 35 main () 36 { 37 int x; 38 39 x = thrice (inc, 40); 40 41 return x; 42 } 43