Fix-up for commit 2d7e1d6e40a13a5f160b584336795b80f193ec3b
"Fortran: Add code gen for do,concurrent's LOCAL/LOCAL_INIT [PR101602]":
../../source-gcc/gcc/fortran/trans-stmt.cc: In function ‘void
gfc_trans_concurrent_locality_spec(bool, stmtblock_t*,
std::vector<symbol_and_tree_t>*, gfc_expr_list**)’:
../../source-gcc/gcc/fortran/trans-stmt.cc:5157:59: error: expected ‘,’
before ‘)’ token
static_assert (LOCALITY_LOCAL_INIT - LOCALITY_LOCAL == 1);
^
../../source-gcc/gcc/fortran/trans-stmt.cc:5157:59: error: expected
string-literal before ‘)’ token
make[2]: *** [Makefile:1210: fortran/trans-stmt.o] Error 1
PR fortran/101602
gcc/fortran/
* trans-stmt.cc (gfc_trans_concurrent_locality_spec): Fix
'static_assert'.
---
gcc/fortran/trans-stmt.cc | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/gcc/fortran/trans-stmt.cc b/gcc/fortran/trans-stmt.cc
index 94ecde096d5..37f8acaea3f 100644
--- a/gcc/fortran/trans-stmt.cc
+++ b/gcc/fortran/trans-stmt.cc
@@ -5154,7 +5154,7 @@ gfc_trans_concurrent_locality_spec (bool after_body,
stmtblock_t *body,
gfc_start_saved_local_decls ();
cnt = 0;
- static_assert (LOCALITY_LOCAL_INIT - LOCALITY_LOCAL == 1);
+ static_assert (LOCALITY_LOCAL_INIT - LOCALITY_LOCAL == 1, "locality_type");
for (int type = LOCALITY_LOCAL;
type <= LOCALITY_LOCAL_INIT; type++)
for (el = locality_list[type]; el; el = el->next)
--
2.34.1
