diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index aa4d82dbab7..f65332766dc 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -200,8 +200,8 @@ This variable used in TAB format mode.")
      '("'[^'\n]*'?" . font-lock-string-face)
      ;;
      ;; Program, subroutine and function declarations, plus calls.
-     (list (concat "\\<\\(block[ \t]*data\\|call\\|function\\|program\\|"
-                   "subroutine\\)\\>[ \t]*\\(\\sw+\\)?")
+     (list (concat "\\<\\(block[ \t]*data\\|call\\|entry\\|function\\|"
+                   "program\\|subroutine\\)\\>[ \t]*\\(\\sw+\\)?")
            '(1 font-lock-keyword-face)
            '(2 font-lock-function-name-face nil t))))
   "For consideration as a value of `fortran-font-lock-keywords'.