1 /* 2 * Copyright (C) Bull S.A. 2001 3 * Copyright (c) International Business Machines Corp., 2001 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 17 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA 18 */ 19 20 /******************************************************************************/ 21 /* */ 22 /* Dec-03-2001 Created: Jacky Malcles & Jean Noel Cordenner */ 23 /* These tests are adapted from AIX float PVT tests. */ 24 /* */ 25 /******************************************************************************/ 26 #include <float.h> 27 #include <stdio.h> 28 #include <stdlib.h> 29 #include <string.h> 30 #include <errno.h> 31 #include <limits.h> 32 #include <unistd.h> 33 #include <fcntl.h> 34 #include <errno.h> 35 #include <sys/signal.h> 36 #include <math.h> 37 38 #define M_PIl 3.1415926535897932384626433832795029L 39 40 static int create_Result_file(void) 41 { 42 43 int i, nbVal; 44 double tabRatan[20000], Inc; 45 char *F_name; 46 int fp; 47 48 F_name = "ratan"; 49 nbVal = 20000; 50 51 Inc = 2 / nbVal; 52 53 for (i = 0; i < nbVal; i++) 54 tabRatan[i] = atan((Inc * i) - 1); 55 56 fp = open(F_name, O_RDWR | O_CREAT | O_TRUNC, 0777); 57 if (!fp) { 58 printf("error opening file"); 59 close(fp); 60 return -1; 61 } else { 62 for (i = 0; i < nbVal; i++) { 63 write(fp, &tabRatan[i], sizeof(double)); 64 } 65 66 close(fp); 67 return 0; 68 } 69 } 70 71 static int create_Data_file(void) 72 { 73 int i, nbVal; 74 double tabDatan[20000], Inc; 75 char *F_name; 76 int fp; 77 78 F_name = "datan"; 79 nbVal = 20000; 80 81 Inc = 2 / nbVal; 82 83 for (i = 0; i < nbVal; i++) 84 tabDatan[i] = (Inc * i) - 1; 85 86 fp = open(F_name, O_RDWR | O_CREAT | O_TRUNC, 0777); 87 if (!fp) { 88 printf("error opening file"); 89 close(fp); 90 return -1; 91 } else { 92 for (i = 0; i < nbVal; i++) { 93 write(fp, &tabDatan[i], sizeof(double)); 94 } 95 close(fp); 96 return 0; 97 } 98 } 99 100 int main(int argc, char *argv[]) 101 { 102 103 if (argc > 1) { 104 switch (atoi(argv[1])) { 105 case 1: 106 if (create_Data_file() == 0) 107 printf("Data file created\n"); 108 else 109 printf 110 ("problem during atan data file creation\n"); 111 break; 112 113 case 2: 114 if (create_Result_file() == 0) 115 printf("Result file created\n"); 116 else 117 printf 118 ("problem during atan result file creation\n"); 119 break; 120 default: 121 printf("Bad arglist code for: '%s'\n", argv[0]); 122 return -1; 123 break; 124 } 125 } else { 126 if (create_Data_file() != 0) 127 printf("problem during atan data file creation\n"); 128 if (create_Result_file() != 0) 129 printf("problem during atan result file creation\n"); 130 } 131 132 return (0); 133 134 } 135
