* gfortran.h (gfc_default_*_kind): Remove prototypes, add extern

variable declaration of same name.
* arith.c, check.c, decl.c, dump_parse_tree.c, expr.c,
intrinsic.c, io.c, iresolve.c, match.c, options.c, primary.c,
resolve.c, simplify.c, symbol.c, trans-const.c, trans-io.c:
Replace all calls to gfc_default_*_kind with variable accesses.
* trans-types.c: Same as above.
(gfc_default_*_kind_1): Rename to gfc_default_*_kind, remove
static qualifier. Replace all occurences.
(gfc_default_*_kind): Remove functions.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@86662 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 10 insertions, 10 deletions

diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c
index ec344c7a646..744ce387fd2 100644
--- a/gcc/fortran/intrinsic.c
+++ b/gcc/fortran/intrinsic.c
@@ -849,12 +849,12 @@ add_functions (void)
 
   int di, dr, dd, dl, dc, dz, ii;
 
-  di = gfc_default_integer_kind ();
-  dr = gfc_default_real_kind ();
-  dd = gfc_default_double_kind ();
-  dl = gfc_default_logical_kind ();
-  dc = gfc_default_character_kind ();
-  dz = gfc_default_complex_kind ();
+  di = gfc_default_integer_kind;
+  dr = gfc_default_real_kind;
+  dd = gfc_default_double_kind;
+  dl = gfc_default_logical_kind;
+  dc = gfc_default_character_kind;
+  dz = gfc_default_complex_kind;
   ii = gfc_index_integer_kind;
 
   add_sym_1 ("abs", 1, 1, BT_REAL, dr,
@@ -1806,10 +1806,10 @@ add_subroutines (void)
 
   int di, dr, dc, dl;
 
-  di = gfc_default_integer_kind ();
-  dr = gfc_default_real_kind ();
-  dc = gfc_default_character_kind ();
-  dl = gfc_default_logical_kind ();
+  di = gfc_default_integer_kind;
+  dr = gfc_default_real_kind;
+  dc = gfc_default_character_kind;
+  dl = gfc_default_logical_kind;
 
   add_sym_0s ("abort", 1, NULL);