Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
Go to the source code of this file.
#define BITSIZE_INT1_F90 |
(target_ieee ? \ BITSIZE_INT1_F90_IEEE : BITSIZE_INT1_F90_Y)
#define BITSIZE_INT1_F90_IEEE 8 |
#define BITSIZE_INT1_F90_Y 8 |
#define BITSIZE_INT2_F90 |
(target_ieee ? \ BITSIZE_INT2_F90_IEEE : BITSIZE_INT2_F90_Y)
#define BITSIZE_INT2_F90_IEEE 16 |
#define BITSIZE_INT2_F90_Y 16 |
#define BITSIZE_INT4_F90 |
(target_ieee ? \ BITSIZE_INT4_F90_IEEE : BITSIZE_INT4_F90_Y)
#define BITSIZE_INT4_F90_IEEE 32 |
#define BITSIZE_INT4_F90_Y 32 |
#define BITSIZE_INT8_F90 |
(target_ieee ? \ BITSIZE_INT8_F90_IEEE : BITSIZE_INT8_F90_Y)
#define BITSIZE_INT8_F90_IEEE 64 |
#define BITSIZE_INT8_F90_Y 64 |
#define DIGITS_INT1_F90 |
(target_ieee ? \ DIGITS_INT1_F90_IEEE : DIGITS_INT1_F90_Y)
#define DIGITS_INT1_F90_IEEE 7 /* Integer (KIND=1) */ |
#define DIGITS_INT1_F90_Y 7 /* Integer (KIND=1) */ |
#define DIGITS_INT2_F90 |
(target_ieee ? \ DIGITS_INT2_F90_IEEE : DIGITS_INT2_F90_Y)
#define DIGITS_INT2_F90_IEEE 15 /* Integer (KIND=2) */ |
#define DIGITS_INT2_F90_Y 15 /* Integer (KIND=2) */ |
#define DIGITS_INT4_F90 |
(target_ieee ? \ DIGITS_INT4_F90_IEEE : DIGITS_INT4_F90_Y)
#define DIGITS_INT4_F90_IEEE 31 /* Integer (KIND=4) */ |
#define DIGITS_INT4_F90_Y 31 /* Integer (KIND=4) */ |
#define DIGITS_INT8_F90 |
(target_ieee ? \ DIGITS_INT8_F90_IEEE : DIGITS_INT8_F90_Y)
#define DIGITS_INT8_F90_IEEE 63 /* Integer (KIND=8) */ |
#define DIGITS_INT8_F90_Y 63 /* Integer (KIND=8) */ |
#define DIGITS_REAL16_F90 |
(target_ieee ? \ DIGITS_REAL16_F90_IEEE : DIGITS_REAL16_F90_Y)
#define DIGITS_REAL16_F90_IEEE 113 /* Real (KIND=16) */ |
#define DIGITS_REAL16_F90_Y 95 /* Real (KIND=16) */ |
#define DIGITS_REAL4_F90 |
(target_ieee ? \ DIGITS_REAL4_F90_IEEE : DIGITS_REAL4_F90_Y)
#define DIGITS_REAL4_F90_IEEE 24 /* Real (KIND=4) */ |
#define DIGITS_REAL4_F90_Y 24 /* Real (KIND=4) */ |
#define DIGITS_REAL8_F90 |
(target_ieee ? \ DIGITS_REAL8_F90_IEEE : DIGITS_REAL8_F90_Y)
#define DIGITS_REAL8_F90_IEEE 53 /* Real (KIND=8) */ |
#define DIGITS_REAL8_F90_Y 47 /* Real (KIND=8) */ |
#define EPSILON_REAL16_F90 |
(target_ieee ? \ EPSILON_REAL16_F90_IEEE : EPSILON_REAL16_F90_Y)
#define EPSILON_REAL16_F90_IEEE "1.925929944387235853055977942584927319E-34" |
#define EPSILON_REAL16_F90_Y "0.50487097934144755546350628178090E-28" |
#define EPSILON_REAL4_F90 |
(target_ieee ? \ EPSILON_REAL4_F90_IEEE : EPSILON_REAL4_F90_Y)
#define EPSILON_REAL4_F90_IEEE "1.192092895507812500E-07" |
#define EPSILON_REAL4_F90_Y "0.1192092895507812E-06" |
#define EPSILON_REAL8_F90 |
(target_ieee ? \ EPSILON_REAL8_F90_IEEE : EPSILON_REAL8_F90_Y)
#define EPSILON_REAL8_F90_IEEE "2.220446049250313081E-16" |
#define EPSILON_REAL8_F90_Y "0.1421085471520200E-13" |
#define HUGE_INT1_F90 |
(target_ieee ? \ HUGE_INT1_F90_IEEE : HUGE_INT1_F90_Y)
#define HUGE_INT1_F90_IEEE "127" |
#define HUGE_INT1_F90_Y "127" |
#define HUGE_INT2_F90 |
(target_ieee ? \ HUGE_INT2_F90_IEEE : HUGE_INT2_F90_Y)
#define HUGE_INT2_F90_IEEE "32767" |
#define HUGE_INT2_F90_Y "32767" |
#define HUGE_INT4_F90 |
(target_ieee ? \ HUGE_INT4_F90_IEEE : HUGE_INT4_F90_Y)
#define HUGE_INT4_F90_IEEE "2147483647" |
#define HUGE_INT4_F90_Y "2147483647" |
#define HUGE_INT8_F90 |
(target_ieee ? \ HUGE_INT8_F90_IEEE : HUGE_INT8_F90_Y)
#define HUGE_INT8_F90_IEEE "9223372036854775807" |
#define HUGE_INT8_F90_Y "9223372036854775807" |
#define HUGE_REAL16_F90 |
(target_ieee ? \ HUGE_REAL16_F90_IEEE : HUGE_REAL16_F90_Y)
#define HUGE_REAL16_F90_IEEE "1.189731495357231765085759326628007016E+4932" |
#define HUGE_REAL16_F90_Y "0.1363435169524269911828730305882e+2466" |
#define HUGE_REAL4_F90 |
(target_ieee ? \ HUGE_REAL4_F90_IEEE : HUGE_REAL4_F90_Y)
#define HUGE_REAL4_F90_IEEE "3.4028234663852886E+38" |
#define HUGE_REAL4_F90_Y "0.13634350882572e+2466" |
#define HUGE_REAL8_F90 |
(target_ieee ? \ HUGE_REAL8_F90_IEEE : HUGE_REAL8_F90_Y)
#define HUGE_REAL8_F90_IEEE "1.7976931348623158E+308" |
#define HUGE_REAL8_F90_Y "0.136343516952426e+2466" |
#define MAXEXPONENT_REAL16_F90 |
(target_ieee ? \ MAXEXPONENT_REAL16_F90_IEEE : MAXEXPONENT_REAL16_F90_Y)
#define MAXEXPONENT_REAL16_F90_IEEE 16384 |
#define MAXEXPONENT_REAL16_F90_Y 8189 |
#define MAXEXPONENT_REAL4_F90 |
(target_ieee ? \ MAXEXPONENT_REAL4_F90_IEEE : MAXEXPONENT_REAL4_F90_Y)
#define MAXEXPONENT_REAL4_F90_IEEE 128 |
#define MAXEXPONENT_REAL4_F90_Y 8189 |
#define MAXEXPONENT_REAL8_F90 |
(target_ieee ? \ MAXEXPONENT_REAL8_F90_IEEE : MAXEXPONENT_REAL8_F90_Y)
#define MAXEXPONENT_REAL8_F90_IEEE 1024 |
#define MAXEXPONENT_REAL8_F90_Y 8189 |
#define MINEXPONENT_REAL16_F90 |
(target_ieee ? \ MINEXPONENT_REAL16_F90_IEEE : MINEXPONENT_REAL16_F90_Y)
#define MINEXPONENT_REAL16_F90_IEEE -16381 |
#define MINEXPONENT_REAL16_F90_Y -8188 |
#define MINEXPONENT_REAL4_F90 |
(target_ieee ? \ MINEXPONENT_REAL4_F90_IEEE : MINEXPONENT_REAL4_F90_Y)
#define MINEXPONENT_REAL4_F90_IEEE -125 |
#define MINEXPONENT_REAL4_F90_Y -8188 |
#define MINEXPONENT_REAL8_F90 |
(target_ieee ? \ MINEXPONENT_REAL8_F90_IEEE : MINEXPONENT_REAL8_F90_Y)
#define MINEXPONENT_REAL8_F90_IEEE -1021 |
#define MINEXPONENT_REAL8_F90_Y -8188 |
#define PRECISION_REAL16_F90 |
(target_ieee ? \ PRECISION_REAL16_F90_IEEE : PRECISION_REAL16_F90_Y)
#define PRECISION_REAL16_F90_IEEE 33 |
#define PRECISION_REAL16_F90_Y 28 |
#define PRECISION_REAL4_F90 |
(target_ieee ? \ PRECISION_REAL4_F90_IEEE : PRECISION_REAL4_F90_Y)
#define PRECISION_REAL4_F90_IEEE 6 |
#define PRECISION_REAL4_F90_Y 6 |
#define PRECISION_REAL8_F90 |
(target_ieee ? \ PRECISION_REAL8_F90_IEEE : PRECISION_REAL8_F90_Y)
#define PRECISION_REAL8_F90_IEEE 15 |
#define PRECISION_REAL8_F90_Y 13 |
#define RADIX_F90 |
(target_ieee ? \ RADIX_F90_IEEE : RADIX_F90_Y)
#define RADIX_F90_IEEE 2 |
#define RADIX_F90_Y 2 |
#define RANGE_INT1_F90 |
(target_ieee ? \ RANGE_INT1_F90_IEEE : RANGE_INT1_F90_Y)
#define RANGE_INT1_F90_IEEE 2 |
#define RANGE_INT1_F90_Y 2 |
#define RANGE_INT2_F90 |
(target_ieee ? \ RANGE_INT2_F90_IEEE : RANGE_INT2_F90_Y)
#define RANGE_INT2_F90_IEEE 4 |
#define RANGE_INT2_F90_Y 4 |
#define RANGE_INT4_F90 |
(target_ieee ? \ RANGE_INT4_F90_IEEE : RANGE_INT4_F90_Y)
#define RANGE_INT4_F90_IEEE 9 |
#define RANGE_INT4_F90_Y 9 |
#define RANGE_INT8_F90 |
(target_ieee ? \ RANGE_INT8_F90_IEEE : RANGE_INT8_F90_Y)
#define RANGE_INT8_F90_IEEE 18 |
#define RANGE_INT8_F90_Y 18 |
#define RANGE_REAL16_F90 |
(target_ieee ? \ RANGE_REAL16_F90_IEEE : RANGE_REAL16_F90_Y)
#define RANGE_REAL16_F90_IEEE 4931 |
#define RANGE_REAL16_F90_Y 2465 |
#define RANGE_REAL4_F90 |
(target_ieee ? \ RANGE_REAL4_F90_IEEE : RANGE_REAL4_F90_Y)
#define RANGE_REAL4_F90_IEEE 37 |
#define RANGE_REAL4_F90_Y 2465 |
#define RANGE_REAL8_F90 |
(target_ieee ? \ RANGE_REAL8_F90_IEEE : RANGE_REAL8_F90_Y)
#define RANGE_REAL8_F90_IEEE 307 |
#define RANGE_REAL8_F90_Y 2465 |
#define TINY_REAL16_F90 |
(target_ieee ? \ TINY_REAL16_F90_IEEE : TINY_REAL16_F90_Y)
#define TINY_REAL16_F90_IEEE "3.362103143112093506262677817321752603E-4932" |
#define TINY_REAL16_F90_Y "0.0" |
#define TINY_REAL4_F90 |
(target_ieee ? \ TINY_REAL4_F90_IEEE : TINY_REAL4_F90_Y)
#define TINY_REAL4_F90_IEEE "1.175494350822287508E-38" |
#define TINY_REAL4_F90_Y "0.0" |
#define TINY_REAL8_F90 |
(target_ieee ? \ TINY_REAL8_F90_IEEE : TINY_REAL8_F90_Y)
#define TINY_REAL8_F90_IEEE "2.225073858507201383E-308" |
#define TINY_REAL8_F90_Y "0.0" |