From 09639a839744ebc53f6b221a8a3b57dbb9993f64 Mon Sep 17 00:00:00 2001 From: Ian Lance Taylor Date: Thu, 14 May 2009 21:29:48 +0000 Subject: passes.c (finish_optimization_passes): Change i to int. ./: * passes.c (finish_optimization_passes): Change i to int. * plugin.c (plugins_active_p): Change event to int. (dump_active_plugins): Likewise. * reginfo.c (invalid_mode_change_p): Change to to unsigned int. Add cast. * tree.c (tree_range_check_failed): Change c to unsigned int. (omp_clause_range_check_failed): Likewise. (build_common_builtin_nodes): Change mode to int. Add cast. * config/ia64/ia64.c (is_emitted): Change r to unsigned int. (ia64_hard_regno_rename_ok, ia64_eh_uses): Likewise. * c-typeck.c (build_unary_op): If -Wc++-compat, warn about using ++ or -- with a variable of enum type. cp/: * class.c (layout_class_type): Change itk to unsigned int. * decl.c (finish_enum): Change itk to unsigned int. * parser.c (cp_parser_check_decl_spec): Change ds to int. Remove casts. fortran/: * decl.c (match_attr_spec): Change d to unsigned int. * dump-parse-tree.c (show_namespace): Change op to int. Add cast. * interface.c (gfc_check_interfaces): Change i to int. Add casts. * module.c (read_module): Change i to int. Add cast. (write_module): Change i to int. * symbol.c (gfc_get_namespace): Change in to int. (gfc_free_namespace): Change i to int. * trans-io.c (gfc_build_io_library_fndecls): Change ptype to unsigned int. Add cast. * trans-types.c (gfc_init_kinds): Change mode to unsigned int. Add casts. testsuite/: * gcc.dg/Wcxx-compat-9.c: New testcase. From-SVN: r147544 --- gcc/fortran/module.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gcc/fortran/module.c') diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 4221c04..2a48f88 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -4017,7 +4017,7 @@ read_module (void) module_locus operator_interfaces, user_operators; const char *p; char name[GFC_MAX_SYMBOL_LEN + 1]; - gfc_intrinsic_op i; + int i; int ambiguous, j, nuse, symbol; pointer_info *info, *q; gfc_use_rename *u; @@ -4225,7 +4225,7 @@ read_module (void) if (only_flag) { - u = find_use_operator (i); + u = find_use_operator ((gfc_intrinsic_op) i); if (u == NULL) { @@ -4677,7 +4677,7 @@ write_symtree (gfc_symtree *st) static void write_module (void) { - gfc_intrinsic_op i; + int i; /* Write the operator interfaces. */ mio_lparen (); -- cgit v1.1