1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
/*
* (C) Copyright 2005- ECMWF.
*
* This software is licensed under the terms of the Apache Licence Version 2.0
* which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
*
* In applying this licence, ECMWF does not waive the privileges and immunities granted to it by
* virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.
*/
#include <stdio.h>
#include "grib_api_internal.h"
int main(int argc, char* argv[])
{
unsigned long i = 0;
ECCODES_ASSERT(grib_ibm_to_long(grib_long_to_ibm(i)) == i);
for (i = 1; i < 0x7fffffff; i++) {
unsigned long j = i | 0x80000000;
if (grib_ibm_to_long(grib_long_to_ibm(i)) != i) {
printf("i=%ld i=%lx e=%g x=%lx\n", i, i, grib_long_to_ibm(i), grib_ibm_to_long(grib_long_to_ibm(i)));
ECCODES_ASSERT(grib_ibm_to_long(grib_long_to_ibm(i)) == i);
}
ECCODES_ASSERT(grib_ibm_to_long(grib_long_to_ibm(j)) == j);
if ((i % 100000) == 0)
printf("i = %08lx %08lx %g %g\n", i, j, grib_long_to_ibm(i), grib_long_to_ibm(j));
}
return 0;
}
|
