procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
Fix-up for commit 2d7e1d6e40
"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'.
This commit is contained in:
Thomas Schwinge 2025-04-12 10:53:14 +02:00
parent 711c10383f
commit f417af3f9f
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gcc/fortran/trans-stmt.cc
View file

@ -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)