diff options
| author | dfranke <dfranke@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-29 16:58:56 +0000 |
|---|---|---|
| committer | dfranke <dfranke@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-29 16:58:56 +0000 |
| commit | 3a450868d861e429c9df940f179d80e90145635c (patch) | |
| tree | 063a356c83c154c01c77550ed090b4822dccfb7b /gcc/fortran/openmp.c | |
| parent | c50b7e7363fac558d65c9a02b990fbe3e3e73d2e (diff) | |
| download | ppe42-gcc-3a450868d861e429c9df940f179d80e90145635c.tar.gz ppe42-gcc-3a450868d861e429c9df940f179d80e90145635c.zip | |
gcc/fortran:
2007-06-29 Daniel Franke <franke.daniel@gmail.com>
* openmp.c (resolve_omp_clauses): Adjust error message to
better reflect the actual requirement.
gcc/testsuite:
2007-06-29 Daniel Franke <franke.daniel@gmail.com>
* gfortran.dg/gomp/reduction1.f90: Adjust error message.
* gfortran.dg/gomp/allocatable_components_1.f90: Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@126115 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/openmp.c')
| -rw-r--r-- | gcc/fortran/openmp.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index 54981ef3a6f..9494052cd72 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -850,7 +850,7 @@ resolve_omp_clauses (gfc_code *code) case OMP_LIST_MULT: case OMP_LIST_SUB: if (!gfc_numeric_ts (&n->sym->ts)) - gfc_error ("%c REDUCTION variable '%s' at %L must be of intrinsic type, got %s", + gfc_error ("%c REDUCTION variable '%s' at %L must be of numeric type, got %s", list == OMP_LIST_PLUS ? '+' : list == OMP_LIST_MULT ? '*' : '-', n->sym->name, &code->loc, |
