diff options
| author | Kai Tietz <kai.tietz@onevision.com> | 2010-06-10 08:06:08 +0000 |
|---|---|---|
| committer | Kai Tietz <ktietz@gcc.gnu.org> | 2010-06-10 10:06:08 +0200 |
| commit | acaed831f6cc09ef9d7661ce7a4532a7e0d72db7 (patch) | |
| tree | 0a3c1b7266c33fae2cdf48b04ca5172331de4581 /gcc/fortran/openmp.c | |
| parent | e4f32cb0a55eefcd56b1c42bcaf5c8aadc692ba6 (diff) | |
| download | gcc-acaed831f6cc09ef9d7661ce7a4532a7e0d72db7.zip gcc-acaed831f6cc09ef9d7661ce7a4532a7e0d72db7.tar.gz gcc-acaed831f6cc09ef9d7661ce7a4532a7e0d72db7.tar.bz2 | |
error.c (error_print): Pre-initialize loc by NULL.
2010-06-10 Kai Tietz <kai.tietz@onevision.com>
* error.c (error_print): Pre-initialize loc by NULL.
* openmp.c (resolve_omp_clauses): Add explicit
braces to avoid ambigous else.
* array.c (match_subscript): Pre-initialize m to MATCH_ERROR.
From-SVN: r160525
Diffstat (limited to 'gcc/fortran/openmp.c')
| -rw-r--r-- | gcc/fortran/openmp.c | 38 |
1 files changed, 21 insertions, 17 deletions
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index 6a56515..0e25bf4 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -845,11 +845,13 @@ resolve_omp_clauses (gfc_code *code) for (list = 0; list < OMP_LIST_NUM; list++) if (list != OMP_LIST_FIRSTPRIVATE && list != OMP_LIST_LASTPRIVATE) for (n = omp_clauses->lists[list]; n; n = n->next) - if (n->sym->mark) - gfc_error ("Symbol '%s' present on multiple clauses at %L", - n->sym->name, &code->loc); - else - n->sym->mark = 1; + { + if (n->sym->mark) + gfc_error ("Symbol '%s' present on multiple clauses at %L", + n->sym->name, &code->loc); + else + n->sym->mark = 1; + } gcc_assert (OMP_LIST_LASTPRIVATE == OMP_LIST_FIRSTPRIVATE + 1); for (list = OMP_LIST_FIRSTPRIVATE; list <= OMP_LIST_LASTPRIVATE; list++) @@ -862,22 +864,24 @@ resolve_omp_clauses (gfc_code *code) } for (n = omp_clauses->lists[OMP_LIST_FIRSTPRIVATE]; n; n = n->next) - if (n->sym->mark) - gfc_error ("Symbol '%s' present on multiple clauses at %L", - n->sym->name, &code->loc); - else - n->sym->mark = 1; - + { + if (n->sym->mark) + gfc_error ("Symbol '%s' present on multiple clauses at %L", + n->sym->name, &code->loc); + else + n->sym->mark = 1; + } for (n = omp_clauses->lists[OMP_LIST_LASTPRIVATE]; n; n = n->next) n->sym->mark = 0; for (n = omp_clauses->lists[OMP_LIST_LASTPRIVATE]; n; n = n->next) - if (n->sym->mark) - gfc_error ("Symbol '%s' present on multiple clauses at %L", - n->sym->name, &code->loc); - else - n->sym->mark = 1; - + { + if (n->sym->mark) + gfc_error ("Symbol '%s' present on multiple clauses at %L", + n->sym->name, &code->loc); + else + n->sym->mark = 1; + } for (list = 0; list < OMP_LIST_NUM; list++) if ((n = omp_clauses->lists[list]) != NULL) { |