1 /* This testcase is part of GDB, the GNU debugger. 2 3 Copyright 2012-2023 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 double sinfrob (double d); 19 double sinfrob16 (double d); 20 21 double sinblah (double d); 22 double sinblah16 (double d); 23 24 double sinhelper (double); 25 long lsinhelper (double); 26 27 double (*sinfunc) (double) = sinfrob; 28 double (*sinfunc16) (double) = sinfrob16; 29 30 double f = 1.0; 31 long i = 1; 32 33 int 34 main (void) 35 { 36 double d = f; 37 long l = i; 38 39 d = sinfrob16 (d); 40 d = sinfrob (d); 41 d = sinhelper (d); 42 43 sinfunc = sinblah; 44 sinfunc16 = sinblah16; 45 46 d = sinblah (d); 47 d = sinblah16 (d); 48 l = lsinhelper (d); 49 50 return l + i; 51 } 52