diff options
| author | law <law@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-07-29 19:08:03 +0000 |
|---|---|---|
| committer | law <law@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-07-29 19:08:03 +0000 |
| commit | 16e3c896e49b2367cda49b2e875ce05c84a98383 (patch) | |
| tree | 9a885c00c0e07ac5ea80df8ee6cf955ea84a0512 /gcc/fortran/match.c | |
| parent | b7dd4edb27a49c3c3cb514fed778e85b191c5468 (diff) | |
| download | gcc-16e3c896e49b2367cda49b2e875ce05c84a98383.tar.gz | |
* match.c (gfc_match_call): Exit loop after setting i.
* resolve.c (resolve_variable): Exit loop after setting seen.
* expr.c (gfc_check_pointer_assign): Exit loop after setting
* warn.
* trans-array.c (set_loop_bounds): Exit loop after setting
nonoptional_arr.
* trans-io.c (gfc_trans_transfer): Exit loop after setting
* seen_vector.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@201316 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/match.c')
| -rw-r--r-- | gcc/fortran/match.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 7f30156624d..29ac77e9cda 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -4188,7 +4188,10 @@ gfc_match_call (void) i = 0; for (a = arglist; a; a = a->next) if (a->expr == NULL) - i = 1; + { + i = 1; + break; + } if (i) { |