diff options
| author | Richard Henderson <rth@redhat.com> | 2004-08-26 15:19:23 -0700 |
|---|---|---|
| committer | Richard Henderson <rth@gcc.gnu.org> | 2004-08-26 15:19:23 -0700 |
| commit | 5e8e542ff89af945fa40ae42e4a7cfc6c91c3353 (patch) | |
| tree | 5cc3da8fc89c95f86ccf55b71c9a0dcae6c637fc /gcc/fortran/f95-lang.c | |
| parent | 0b410f0b88b3fc969f85708883e6acb3226827f2 (diff) | |
| download | gcc-5e8e542ff89af945fa40ae42e4a7cfc6c91c3353.zip gcc-5e8e542ff89af945fa40ae42e4a7cfc6c91c3353.tar.gz gcc-5e8e542ff89af945fa40ae42e4a7cfc6c91c3353.tar.bz2 | |
arith.c: Include system.h, not real system headers.
* arith.c: Include system.h, not real system headers.
(MPZ_NULL, MPF_NULL, DEF_GFC_INTEGER_KIND, DEF_GFC_LOGICAL_KIND,
DEF_GFC_REAL_KIND, GFC_SP_KIND, GFC_SP_PREC, GFC_SP_EMIN, GFC_SP_EMAX,
GFC_DP_KIND, GFC_DP_PREC, GFC_DP_EMIN, GFC_DP_EMAX, GFC_QP_KIND,
GFC_QP_PREC, GFC_QP_EMIN, GFC_QP_EMAX): Remove.
(gfc_integer_kinds, gfc_logical_kinds, gfc_real_kinds,
gfc_index_integer_kind, gfc_default_integer_kind,
gfc_default_real_kind,gfc_default_double_kind,
gfc_default_character_kind, gfc_default_logical_kind,
gfc_default_complex_kind, validate_integer, validate_real,
validate_logical, validate_character,
gfc_validate_kind): Move to trans-types.c.
(gfc_set_model_kind): Use gfc_validate_kind.
(gfc_set_model): Just copy the current precision to default.
(gfc_arith_init_1): Use mpfr precision 128 for integer setup.
* f95-lang.c (gfc_init_decl_processing): Invoke gfc_init_kinds.
* gfortran.h: Update file commentary.
* trans-types.c (MAX_INT_KINDS, MAX_REAL_KINDS): New.
(gfc_default_integer_kind_1, gfc_default_real_kind_1,
gfc_default_double_kind_1, gfc_default_character_kind_1,
gfc_default_logical_kind_1, gfc_default_complex_kind_1): New.
(gfc_init_kinds): New.
(gfc_init_types): Don't set gfc_index_integer_kind here.
* trans-types.h (gfc_init_kinds): Declare.
* doc/invoke.texi: Clarify DOUBLE PRECISION behaviour wrt -r8.
From-SVN: r86637
Diffstat (limited to 'gcc/fortran/f95-lang.c')
| -rw-r--r-- | gcc/fortran/f95-lang.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index 77950e9..673e208 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -576,6 +576,7 @@ gfc_init_decl_processing (void) build_common_tree_nodes_2 (0); /* Set up F95 type nodes. */ + gfc_init_kinds (); gfc_init_types (); } |