* lisp/progmodes/f90.el (f90-type-def-re): Handle "type, bind(c)". (Bug#8691)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0548bf9ea288a2a362b27a6456889cf2bc862e5e..96d8cf3d83a6639790a15cf1788b1b45a9ad6731 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-05-19  Glenn Morris  <rgm@gnu.org>
 
+       * progmodes/f90.el (f90-type-def-re):
+       Handle "type, bind(c)".  (Bug#8691)
+
        * emacs-lisp/autoload.el (batch-update-autoloads):
        Set autoload-excludes by parsing loadup.el rather than Makefiles.
 

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 53aa95498dad8af2245fbfe62f1367ab8ad96fc9..e9bb43c4d6dc822bb12fb7951e9dee569a3cf5b2 100644 (file)
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -809,8 +809,10 @@ Can be overridden by the value of `font-lock-maximum-decoration'.")
   ;; type word
   ;; type :: word
   ;; type, stuff :: word
+  ;; type, bind(c) :: word
   ;; NOT "type ("
-  "\\<\\(type\\)\\>\\(?:[^()\n]*::\\)?[ \t]*\\(\\sw+\\)"
+  "\\<\\(type\\)\\>\\(?:\\(?:[^()\n]*\\|\
+.*,[ \t]*bind[ \t]*([ \t]*c[ \t]*)[ \t]*\\)::\\)?[ \t]*\\(\\sw+\\)"
   "Regexp matching the definition of a derived type.")
 
 (defconst f90-typeis-re