Skip to content

Commit d822a85

Browse files
committed
transferring more changes
1 parent e56f333 commit d822a85

File tree

1 file changed

+4
-0
lines changed

1 file changed

+4
-0
lines changed

gcc/fortran/match.c

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1595,18 +1595,21 @@ gfc_match_if (gfc_statement *if_type)
15951595
match ("assign", gfc_match_assign, ST_LABEL_ASSIGNMENT)
15961596
match ("backspace", gfc_match_backspace, ST_BACKSPACE)
15971597
match ("call", gfc_match_call, ST_CALL)
1598+
match ("change team", gfc_match_change_team, ST_CHANGE_TEAM)
15981599
match ("close", gfc_match_close, ST_CLOSE)
15991600
match ("continue", gfc_match_continue, ST_CONTINUE)
16001601
match ("cycle", gfc_match_cycle, ST_CYCLE)
16011602
match ("deallocate", gfc_match_deallocate, ST_DEALLOCATE)
16021603
match ("end file", gfc_match_endfile, ST_END_FILE)
1604+
match ("end team", gfc_match_end_team, ST_END_TEAM)
16031605
match ("error stop", gfc_match_error_stop, ST_ERROR_STOP)
16041606
match ("event post", gfc_match_event_post, ST_EVENT_POST)
16051607
match ("event wait", gfc_match_event_wait, ST_EVENT_WAIT)
16061608
match ("exit", gfc_match_exit, ST_EXIT)
16071609
match ("fail image", gfc_match_fail_image, ST_FAIL_IMAGE)
16081610
match ("flush", gfc_match_flush, ST_FLUSH)
16091611
match ("forall", match_simple_forall, ST_FORALL)
1612+
match ("form team", gfc_match_form_team, ST_FORM_TEAM)
16101613
match ("go to", gfc_match_goto, ST_GOTO)
16111614
match ("if", match_arithmetic_if, ST_ARITHMETIC_IF)
16121615
match ("inquire", gfc_match_inquire, ST_INQUIRE)
@@ -1623,6 +1626,7 @@ gfc_match_if (gfc_statement *if_type)
16231626
match ("sync all", gfc_match_sync_all, ST_SYNC_CALL);
16241627
match ("sync images", gfc_match_sync_images, ST_SYNC_IMAGES);
16251628
match ("sync memory", gfc_match_sync_memory, ST_SYNC_MEMORY);
1629+
match ("sync team", gfc_match_sync_team, ST_SYNC_TEAM)
16261630
match ("unlock", gfc_match_unlock, ST_UNLOCK)
16271631
match ("where", match_simple_where, ST_WHERE)
16281632
match ("write", gfc_match_write, ST_WRITE)

0 commit comments

Comments
 (0)