2014-11-13 Cesar Philippidis <cesar@codesourcery.com>
gcc/fortran/
* match.c (match_exit_cycle): Restructure error strings.
* parse.c (is_oacc): Remove bogus break.
===================================================================
@@ -2491,8 +2491,10 @@ match_exit_cycle (gfc_statement st, gfc_
if (o != NULL)
{
- gfc_error ("%s statement at %C leaving %s structured block",
- gfc_ascii_statement (st), is_oacc (p) ? "OpenACC" : "OpenMP");
+ gfc_error (is_oacc (p)
+ ? "%s statement at %C leaving OpenACC structured block"
+ : "%s statement at %C leaving OpenMP structured block",
+ gfc_ascii_statement (st));
return MATCH_ERROR;
}
===================================================================
@@ -5554,7 +5554,7 @@ is_oacc (gfc_state_data *sd)
{
switch (sd->construct->op)
{
- case EXEC_OACC_PARALLEL_LOOP:break;
+ case EXEC_OACC_PARALLEL_LOOP:
case EXEC_OACC_PARALLEL:
case EXEC_OACC_KERNELS_LOOP:
case EXEC_OACC_KERNELS: