diff options
Diffstat (limited to 'gcc/fortran/trans-stmt.c')
| -rw-r--r-- | gcc/fortran/trans-stmt.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index 55543182f8d..46a69d46148 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -37,8 +37,6 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA #include "trans-const.h" #include "arith.h" -int has_alternate_specifier; - typedef struct iter_info { tree var; @@ -206,6 +204,7 @@ tree gfc_trans_call (gfc_code * code) { gfc_se se; + int has_alternate_specifier; /* A CALL starts a new block because the actual arguments may have to be evaluated first. */ @@ -213,10 +212,10 @@ gfc_trans_call (gfc_code * code) gfc_start_block (&se.pre); gcc_assert (code->resolved_sym); - has_alternate_specifier = 0; /* Translate the call. */ - gfc_conv_function_call (&se, code->resolved_sym, code->ext.actual); + has_alternate_specifier + = gfc_conv_function_call (&se, code->resolved_sym, code->ext.actual); /* A subroutine without side-effect, by definition, does nothing! */ TREE_SIDE_EFFECTS (se.expr) = 1; |