From 6e158c5fd534a1080dd013ed5d9d3fcc3fe838ff Mon Sep 17 00:00:00 2001 From: Andrew Stubbs Date: Fri, 5 Jul 2019 16:00:46 +0000 Subject: [PATCH] Tweak error message for mapped parameters. 2019-07-05 Andrew Stubbs gcc/fortran/ * openmp.c (resolve_omp_clauses): Add custom error messages for parameters in map clauses. From-SVN: r273143 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/openmp.c | 17 +++++++++++++++-- 2 files changed, 20 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index a163a1d..14ec845 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2019-07-05 Andrew Stubbs + + * openmp.c (resolve_omp_clauses): Add custom error messages for + parameters in map clauses. + 2019-07-03 Martin Liska * check.c (gfc_check_c_funloc): Remove diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index 1c7bce6..44fcb9d 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -4208,8 +4208,21 @@ resolve_omp_clauses (gfc_code *code, gfc_omp_clauses *omp_clauses, continue; } } - gfc_error ("Object %qs is not a variable at %L", n->sym->name, - &n->where); + if (list == OMP_LIST_MAP + && n->sym->attr.flavor == FL_PARAMETER) + { + if (openacc) + gfc_error ("Object %qs is not a variable at %L; parameters" + " cannot be and need not be copied", n->sym->name, + &n->where); + else + gfc_error ("Object %qs is not a variable at %L; parameters" + " cannot be and need not be mapped", n->sym->name, + &n->where); + } + else + gfc_error ("Object %qs is not a variable at %L", n->sym->name, + &n->where); } for (list = 0; list < OMP_LIST_NUM; list++) -- 2.7.4