diff --git a/gcc/fortran/openmp.cc b/gcc/fortran/openmp.cc index 77f6e1732f92640ea26c42d767c01fbc57aa3599..38de60238c0e01bfb6a2fa083352854a2e8db83d 100644 --- a/gcc/fortran/openmp.cc +++ b/gcc/fortran/openmp.cc @@ -4768,8 +4768,8 @@ gfc_match_omp_depobj (void) if (gfc_match (" ( %v ) ", &destroyobj) == MATCH_YES) { if (destroyobj->symtree != depobj->symtree) - gfc_warning (0, "The same depend object should be used as DEPOBJ " - "argument at %L and as DESTROY argument at %L", + gfc_warning (OPT_Wopenmp, "The same depend object should be used as" + " DEPOBJ argument at %L and as DESTROY argument at %L", &depobj->where, &destroyobj->where); gfc_free_expr (destroyobj); }