diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-25 19:40:37 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-25 19:40:37 +0000 |
| commit | 1011a9ca98952b1fff364a3350b9372a7ef340b0 (patch) | |
| tree | 0227f439c097f371c197a8473efb939d6bb3803b /libgfortran/mk-srk-inc.sh | |
| parent | 6adffd3fb322b0bbe172b7d3f1f6bff5cdccba5a (diff) | |
| download | gcc-1011a9ca98952b1fff364a3350b9372a7ef340b0.tar.gz | |
2010-06-25 Tobias Burnus <burnus@net-b.de>
* intrinsic.h (gfc_check_selected_real_kind,
gfc_simplify_selected_real_kind): Update prototypes.
* intrinsic.c (add_functions): Add radix support to
selected_real_kind.
* check.c (gfc_check_selected_real_kind): Ditto.
* simplify.c (gfc_simplify_selected_real_kind): Ditto.
* trans-decl.c (gfc_build_intrinsic_function_decls):
Change call from selected_real_kind to selected_real_kind2008.
* intrinsic.texi (SELECTED_REAL_KIND): Update for radix.
(PRECISION, RANGE, RADIX): Add cross @refs.
2010-06-25 Tobias Burnus <burnus@net-b.de>
* intrinsics/selected_real_kind.f90
(_gfortran_selected_real_kind2008): Add function.
(_gfortran_selected_real_kind): Stub which calls
_gfortran_selected_real_kind2008.
* gfortran.map (GFORTRAN_1.4): Add
_gfortran_selected_real_kind2008.
* mk-srk-inc.sh: Save also RADIX.
2010-06-25 Tobias Burnus <burnus@net-b.de>
* selected_real_kind_2.f90: New.
* selected_real_kind_3.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@161411 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/mk-srk-inc.sh')
| -rwxr-xr-x | libgfortran/mk-srk-inc.sh | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/mk-srk-inc.sh b/libgfortran/mk-srk-inc.sh index 10c428f02d6..402441ce6f2 100755 --- a/libgfortran/mk-srk-inc.sh +++ b/libgfortran/mk-srk-inc.sh @@ -22,7 +22,7 @@ echo " type (real_info), parameter :: real_infos(c) = (/ &" i=0 for k in $kinds; do # echo -n is not portable - str=" real_info ($k, precision(0.0_$k), range(0.0_$k))" + str=" real_info ($k, precision(0.0_$k), range(0.0_$k), radix(0.0_$k))" i=`expr $i + 1` if [ $i -lt $c ]; then echo "$str, &" |