[Emacs-diffs] /srv/bzr/emacs/trunk r104720: Add some co-array stuff to f90.el.

[Glenn Morris]

------------------------------------------------------------
revno: 104720
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2011-06-25 17:23:44 -0700
message:
  Add some co-array stuff to f90.el.
  
  * lisp/progmodes/f90.el (f90-keywords-re, f90-keywords-level-3-re):
  (f90-procedures-re, f90-constants-re): Add some co-array stuff.
modified:
  lisp/progmodes/f90.el

=== modified file 'lisp/progmodes/f90.el'
--- a/lisp/progmodes/f90.el     2011-06-26 00:01:36 +0000
+++ b/lisp/progmodes/f90.el     2011-06-26 00:23:44 +0000
@@ -312,7 +312,8 @@
                 "final" "generic" "import" "non_intrinsic" "non_overridable"
                 "nopass" "pass" "protected" "same_type_as" "value" "volatile"
                 ;; F2008.
-                "contiguous" "submodule" "concurrent"
+                "contiguous" "submodule" "concurrent" "codimension"
+                "sync all" "sync memory" "critical" "image_index"
                 ) 'words)
   "Regexp used by the function `f90-change-keywords'.")
 
@@ -333,7 +334,7 @@
      ;; F2008.
      ;; "concurrent" is only in the sense of "do [,] concurrent", but given
      ;; the [,] it's simpler to just do every instance (cf "do while").
-     "contiguous" "concurrent"
+     "contiguous" "concurrent" "codimension" "sync all" "sync memory"
      ) 'words)
   "Keyword-regexp for font-lock level >= 3.")
 
@@ -380,6 +381,8 @@
              "bessel_y0" "bessel_y1" "bessel_yn"
              "erf" "erfc" "erfc_scaled" "gamma" "hypot" "log_gamma"
              "norm2" "parity" "findloc" "is_contiguous"
+             "sync images" "lock" "unlock" "image_index"
+             "lcobound" "ucobound" "num_images" "this_image"
              ;; F2008 iso_fortran_env module.
              "compiler_options" "compiler_version"
              ;; F2008 iso_c_binding module.
@@ -450,6 +453,7 @@
                 "character_kinds" "int8" "int16" "int32" "int64"
                 "integer_kinds" "iostat_inquire_internal_unit"
                 "logical_kinds" "real_kinds" "real32" "real64" "real128"
+                "lock_type" "atomic_int_kind" "atomic_logical_kind"
                 ) 'words)
   "Regexp for Fortran intrinsic constants.")