[gcc r15-9393] Fortran: Add code gen for do, concurrent's LOCAL/LOCAL_INIT: Fix 'static_assert' [PR101602]

[Thomas Schwinge via Gcc-cvs]

https://gcc.gnu.org/g:f417af3f9f94538c2600e78e6c60b61c29fdbf99

commit r15-9393-gf417af3f9f94538c2600e78e6c60b61c29fdbf99
Author: Thomas Schwinge <tschwi...@baylibre.com>
Date:   Sat Apr 12 10:53:14 2025 +0200

    Fortran: Add code gen for do,concurrent's LOCAL/LOCAL_INIT: Fix 
'static_assert' [PR101602]
    
    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'.

Diff:
---
 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 94ecde096d58..37f8acaea3f6 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)