21766085775bd52c9db53629636c830fc9dc6fa0 openmp: Add support for
'target_device' context selector set
I have committed an extra fix to remove an extra comma in an error
message changed by this patch. This causes regressions in an existing
test for 'declare variant' because the expected wording of the error
message has changed. This fix is already in the version of the patch
posted at:
https://gcc.gnu.org/pipermail/gcc-patches/2022-January/589191.html
Kwok
From 23dd64c4715b2df2181aaf995e3040d54edba129 Mon Sep 17 00:00:00 2001
From: Kwok Cheung Yeung <k...@codesourcery.com>
Date: Mon, 31 Jan 2022 05:44:21 -0800
Subject: [PATCH] openmp: Fix error message in Fortran front-end
An extra comma in an error message causes failures in the Fortran tests for
declare variant, because the message differs from that expected.
2022-01-31 Kwok Cheung Yeung <k...@codesourcery.com>
gcc/fortran/
* openmp.c (gfc_match_omp_context_selector_specification): Remove
extra comma in error message.
---
gcc/fortran/ChangeLog.omp | 5 +++++
gcc/fortran/openmp.c | 2 +-
2 files changed, 6 insertions(+), 1 deletion(-)
diff --git a/gcc/fortran/ChangeLog.omp b/gcc/fortran/ChangeLog.omp
index 81c4d9a129b..a78fab44352 100644
--- a/gcc/fortran/ChangeLog.omp
+++ b/gcc/fortran/ChangeLog.omp
@@ -1,3 +1,8 @@
+2022-01-31 Kwok Cheung Yeung <k...@codesourcery.com>
+
+ * openmp.c (gfc_match_omp_context_selector_specification): Remove
+ extra comma in error message.
+
2022-01-25 Kwok Cheung Yeung <k...@codesourcery.com>
* openmp.c (omp_target_device_selectors): New.
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c
index e448868d246..94930fed059 100644
--- a/gcc/fortran/openmp.c
+++ b/gcc/fortran/openmp.c
@@ -4844,7 +4844,7 @@ gfc_match_omp_context_selector_specification
(gfc_omp_set_selector **oss_head,
gfc_error ("expected 'construct', 'device', 'implementation', "
"'target_device' or 'user' at %C");
else
- gfc_error ("expected 'construct', 'device', 'implementation', "
+ gfc_error ("expected 'construct', 'device', 'implementation' "
"or 'user' at %C");
return MATCH_ERROR;
}
--
2.30.0.335.ge636282
