diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-09 12:56:35 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-09 12:56:35 +0000 |
| commit | e099d7cd912ec9f9aea2f3c6539fa236a6a1d829 (patch) | |
| tree | f236884d1821a2340e632d7e6e3a973a81059b85 /libgfortran/mk-kinds-h.sh | |
| parent | f01c037fefba94e6bb747a220a747cc24d6ae43c (diff) | |
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@160470 138bc75d-0d04-0410-961f-82ee72b054a4
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 "" |