robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 1 | /* |
| 2 | * |
| 3 | * Copyright (c) International Business Machines Corp., 2002 |
| 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 2 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 |
| 13 | * the 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, write to the Free Software |
Wanlong Gao | 4548c6c | 2012-10-19 18:03:36 +0800 | [diff] [blame] | 17 | * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 18 | */ |
| 19 | |
| 20 | /* 01/02/2003 Port to LTP avenkat@us.ibm.com */ |
| 21 | /* 06/30/2001 Port to Linux nsharoff@us.ibm.com */ |
| 22 | |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 23 | /* |
| 24 | * NAME |
Garrett Cooper | 2c28215 | 2010-12-16 00:55:50 -0800 | [diff] [blame] | 25 | * scalb |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 26 | * |
| 27 | * CALLS |
| 28 | * nextafter(3C) |
| 29 | * |
| 30 | * ALGORITHM |
| 31 | * Check results from the above functions against expected values. |
| 32 | * |
| 33 | * RESTRICTIONS |
| 34 | * Checks for basic functionality, nothing fancy |
| 35 | */ |
| 36 | |
Garrett Cooper | 316297f | 2010-12-18 00:54:26 -0800 | [diff] [blame] | 37 | #include <errno.h> |
| 38 | #include <math.h> |
| 39 | #include <stdio.h> |
| 40 | #include <stdlib.h> |
| 41 | #include "test.h" |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 42 | |
| 43 | #define FAILED 0 |
| 44 | #define PASSED 1 |
| 45 | |
| 46 | char *TCID = "nextafter01"; |
| 47 | |
| 48 | int local_flag = PASSED; |
| 49 | int block_number; |
| 50 | int errno; |
| 51 | FILE *temp; |
| 52 | int TST_TOTAL = 1; |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 53 | |
| 54 | void setup(); |
Garrett Cooper | 316297f | 2010-12-18 00:54:26 -0800 | [diff] [blame] | 55 | void blenter(); |
| 56 | void blexit(); |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 57 | |
| 58 | /*--------------------------------------------------------------*/ |
| 59 | int main() |
| 60 | { |
| 61 | double answer; |
Wanlong Gao | 354ebb4 | 2012-12-07 10:10:04 +0800 | [diff] [blame] | 62 | double check; /* tmp variable */ |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 63 | |
| 64 | setup(); /* temp file is now open */ |
| 65 | /*--------------------------------------------------------------*/ |
Garrett Cooper | 316297f | 2010-12-18 00:54:26 -0800 | [diff] [blame] | 66 | blenter(); |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 67 | |
| 68 | answer = nextafter(1.0, 1.1); |
| 69 | check = (answer + 1.0) / 2; |
| 70 | if ((check != answer) && ((float)check != 1.0)) { |
| 71 | fprintf(temp, "nextafter returned %e, expected answer or 1.0\n", |
Wanlong Gao | 354ebb4 | 2012-12-07 10:10:04 +0800 | [diff] [blame] | 72 | answer); |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 73 | local_flag = FAILED; |
| 74 | } |
| 75 | |
Wanlong Gao | 354ebb4 | 2012-12-07 10:10:04 +0800 | [diff] [blame] | 76 | blexit(); |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 77 | /*--------------------------------------------------------------*/ |
Garrett Cooper | 316297f | 2010-12-18 00:54:26 -0800 | [diff] [blame] | 78 | blenter(); |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 79 | |
| 80 | answer = nextafter(1.0, 0.9); |
| 81 | if ((check != answer) && (check != 1.0)) { |
| 82 | fprintf(temp, "nextafter returned %e, expected answer or 1.0\n", |
Wanlong Gao | 354ebb4 | 2012-12-07 10:10:04 +0800 | [diff] [blame] | 83 | answer); |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 84 | local_flag = FAILED; |
| 85 | } |
| 86 | |
Wanlong Gao | 354ebb4 | 2012-12-07 10:10:04 +0800 | [diff] [blame] | 87 | blexit(); |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 88 | /*--------------------------------------------------------------*/ |
Garrett Cooper | 316297f | 2010-12-18 00:54:26 -0800 | [diff] [blame] | 89 | blenter(); |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 90 | |
| 91 | answer = nextafter(1.0, 1.0); |
| 92 | if (answer != 1.0) { |
| 93 | fprintf(temp, "nextafter 3 returned %e, expected 1.0\n", |
Wanlong Gao | 354ebb4 | 2012-12-07 10:10:04 +0800 | [diff] [blame] | 94 | answer); |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 95 | local_flag = FAILED; |
| 96 | } |
| 97 | |
Wanlong Gao | 354ebb4 | 2012-12-07 10:10:04 +0800 | [diff] [blame] | 98 | blexit(); |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 99 | /*--------------------------------------------------------------*/ |
| 100 | |
Garrett Cooper | 316297f | 2010-12-18 00:54:26 -0800 | [diff] [blame] | 101 | tst_exit(); |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 102 | } |
Wanlong Gao | 354ebb4 | 2012-12-07 10:10:04 +0800 | [diff] [blame] | 103 | |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 104 | /*--------------------------------------------------------------*/ |
| 105 | |
| 106 | /***** ***** LTP Port *****/ |
| 107 | |
| 108 | /* FUNCTIONS */ |
| 109 | |
| 110 | void setup() |
| 111 | { |
Garrett Cooper | 316297f | 2010-12-18 00:54:26 -0800 | [diff] [blame] | 112 | temp = stderr; |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 113 | } |
| 114 | |
Garrett Cooper | 316297f | 2010-12-18 00:54:26 -0800 | [diff] [blame] | 115 | void blenter() |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 116 | { |
Garrett Cooper | 316297f | 2010-12-18 00:54:26 -0800 | [diff] [blame] | 117 | local_flag = PASSED; |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 118 | } |
| 119 | |
Garrett Cooper | 316297f | 2010-12-18 00:54:26 -0800 | [diff] [blame] | 120 | void blexit() |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 121 | { |
Garrett Cooper | 316297f | 2010-12-18 00:54:26 -0800 | [diff] [blame] | 122 | if (local_flag == PASSED) |
| 123 | tst_resm(TPASS, "Test passed"); |
| 124 | else |
| 125 | tst_resm(TFAIL, "Test failed"); |
robbiew | 4487a90 | 2003-01-03 22:50:19 +0000 | [diff] [blame] | 126 | } |
| 127 | |
Chris Dearman | ec6edca | 2012-10-17 19:54:01 -0700 | [diff] [blame] | 128 | /***** ***** *****/ |