OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

openmp.c (resolve_omp_clauses): Adjust error message to better reflect the actual requirement.

Browse Source 
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.

From-SVN: r126115
This commit is contained in:
Daniel Franke 2007-06-29 12:58:56 -04:00
parent 8edd82f2b3
commit cd079a1b76
3 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/fortran/openmp.c
View File

@ -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,

2
gcc/testsuite/gfortran.dg/gomp/allocatable_components_1.f90
View File

@ -49,7 +49,7 @@ CONTAINS
TYPE(t) :: a(10)
INTEGER :: i
!$omp parallel do reduction(+: a) ! { dg-error "must be of intrinsic type" }
!$omp parallel do reduction(+: a) ! { dg-error "must be of numeric type" }
DO i = 1, SIZE(a)
END DO
!$omp end parallel do

10
gcc/testsuite/gfortran.dg/gomp/reduction1.f90
View File

@ -60,15 +60,15 @@ common /blk/ i1
!$omp end parallel
!$omp parallel reduction (*:ia1) ! { dg-error "Assumed size" }
!$omp end parallel
!$omp parallel reduction (+:l1) ! { dg-error "is LOGICAL" }
!$omp parallel reduction (+:l1) ! { dg-error "must be of numeric type, got LOGICAL" }
!$omp end parallel
!$omp parallel reduction (*:la1) ! { dg-error "is LOGICAL" }
!$omp parallel reduction (*:la1) ! { dg-error "must be of numeric type, got LOGICAL" }
!$omp end parallel
!$omp parallel reduction (-:a1) ! { dg-error "is CHARACTER" }
!$omp parallel reduction (-:a1) ! { dg-error "must be of numeric type, got CHARACTER" }
!$omp end parallel
!$omp parallel reduction (+:t1) ! { dg-error "is TYPE" }
!$omp parallel reduction (+:t1) ! { dg-error "must be of numeric type, got TYPE" }
!$omp end parallel
!$omp parallel reduction (*:ta1) ! { dg-error "is TYPE" }
!$omp parallel reduction (*:ta1) ! { dg-error "must be of numeric type, got TYPE" }
!$omp end parallel
!$omp parallel reduction (.and.:i3) ! { dg-error "must be LOGICAL" }
!$omp end parallel