diff options
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 692078a..9237503 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -5476,6 +5476,12 @@ gfc_match_end (gfc_statement *st) eos_ok = 0; break; + case COMP_CRITICAL: + *st = ST_END_CRITICAL; + target = " critical"; + eos_ok = 0; + break; + case COMP_SELECT: case COMP_SELECT_TYPE: *st = ST_END_SELECT; @@ -5534,7 +5540,8 @@ gfc_match_end (gfc_statement *st) { if (*st != ST_ENDDO && *st != ST_ENDIF && *st != ST_END_SELECT - && *st != ST_END_FORALL && *st != ST_END_WHERE && *st != ST_END_BLOCK) + && *st != ST_END_FORALL && *st != ST_END_WHERE && *st != ST_END_BLOCK + && *st != ST_END_CRITICAL) return MATCH_YES; if (!block_name) |