diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2010-06-09 12:56:35 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2010-06-09 12:56:35 +0000 |
| commit | a83169cd671ac6aa5583e0679c94e84051df3675 (patch) | |
| tree | f236884d1821a2340e632d7e6e3a973a81059b85 /libgfortran/mk-kinds-h.sh | |
| parent | b807f4f826c9d1ddf96df2ed54f6e6fe94f3df6a (diff) | |
| download | gcc-a83169cd671ac6aa5583e0679c94e84051df3675.tar.gz | |
mk-kinds-h.sh: Define GFC_REAL_*_LITERAL_SUFFIX and GFC_REAL_*_LITERAL macros for each kind.
* mk-kinds-h.sh: Define GFC_REAL_*_LITERAL_SUFFIX and
GFC_REAL_*_LITERAL macros for each kind.
* intrinsics/cpu_time.c (cpu_time_4, cpu_time_8, cpu_time_10,
cpu_time_16): Use them.
* intrinsics/random.c (rnumber_4, rnumber_8, rnumber_10,
rnumber_16): Likewise.
From-SVN: r160470
Diffstat (limited to 'libgfortran/mk-kinds-h.sh')
| -rwxr-xr-x | libgfortran/mk-kinds-h.sh | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/libgfortran/mk-kinds-h.sh b/libgfortran/mk-kinds-h.sh index c5d20fe12c5..a16f9850254 100755 --- a/libgfortran/mk-kinds-h.sh +++ b/libgfortran/mk-kinds-h.sh @@ -82,6 +82,12 @@ for k in $possible_real_kinds; do echo "#define HAVE_GFC_REAL_${k}" echo "#define HAVE_GFC_COMPLEX_${k}" echo "#define GFC_REAL_${k}_HUGE ${huge}${suffix}" + echo "#define GFC_REAL_${k}_LITERAL_SUFFIX ${suffix}" + if [ "x$suffix" = "x" ]; then + echo "#define GFC_REAL_${k}_LITERAL(X) (X)" + else + echo "#define GFC_REAL_${k}_LITERAL(X) (X ## ${suffix})" + fi echo "#define GFC_REAL_${k}_DIGITS ${digits}" echo "#define GFC_REAL_${k}_RADIX ${radix}" echo "" |