Add testing file; fix fail image statement

Author: han190

syntaxes/fortran_free-form.tmLanguage.json

@@ -2877,11 +2877,11 @@
     },
     "sync-all-statement": {
       "comment": "Introduced in the Fortran 2018 standard.",
-      "name": "meta.statement.sync-all.fortran",
-      "begin": "(?i)\\b(sync all)(\\s*(?=\\())?",
+      "name": "meta.statement.sync-all-memory.fortran",
+      "begin": "(?i)\\b(sync all|sync memory)(\\s*(?=\\())?",
       "beginCaptures": {
         "1": {
-          "name": "keyword.control.sync-all.fortran"
+          "name": "keyword.control.sync-all-memory.fortran"
         },
         "2": {
           "name": "punctuation.parentheses.left.fortran"
@@ -2901,11 +2901,11 @@
     },
     "sync-statement": {
       "comment": "Introduced in the Fortran 2018 standard.",
-      "name": "meta.statement.sync.fortran",
-      "begin": "(?i)\\b(sync images|sync memory|sync team)\\s*(?=\\()",
+      "name": "meta.statement.sync-images-team.fortran",
+      "begin": "(?i)\\b(sync images|sync team)\\s*(?=\\()",
       "beginCaptures": {
         "1": {
-          "name": "keyword.control.sync.fortran"
+          "name": "keyword.control.sync-images-team.fortran"
         },
         "2": {
           "name": "punctuation.parentheses.left.fortran"
@@ -2974,8 +2974,8 @@
     "fail-image-statement": {
       "comment": "Introduced in the Fortran 2018 standard.",
       "name": "meta.statement.fail-image.fortran",
-      "begin": "(fail image)",
-      "beginCaptures": {
+      "match": "\\b(fail image)\\b",
+      "captures": {
         "1": {
           "name": "keyword.control.fail-image.fortran"
         }

test/fortran/syntax/images.f90

@@ -0,0 +1,37 @@
+program main
+
+  use iso_fortran_env, only: team_type, event_type
+  implicit none
+
+  type(team_type) :: team
+  type(event_type) :: event[*]
+  integer :: image_index, team_index
+  integer :: status
+
+  image_index = this_image()
+  team_index = merge(1, 2, mod(image_index, 2) == 0)
+
+  !> Test form team
+  form team (team_index, team)
+
+  ! Test fail image
+  if (team_index == 1) fail image
+
+  !> Test sync all, sync memory
+  sync all
+  sync all (stat=status)
+  sync memory
+  sync memory (stat=status)
+
+  !> Test sync team, sync images
+  sync team (team_index)
+  sync team (team_index, stat=status)
+  sync images (image_index)
+  sync images (image_index, stat=status)
+
+  !> Test event post and event wait
+  event post (event[1])
+  event post (event[2])
+  event wait (event, until_count=2)
+
+end program main