fix(fortran) Fixed FORTRAN 77 style comments (#2689)

Author: interkosmos

Diff for: CHANGES.md

@@ -8,10 +8,12 @@ Language Improvements:
 - enh(java) Add support for `record` (#2685) [Josh Goebel][]
 - fix(csharp) prevent modifier keywords wrongly flagged as `title` (#2683) [Josh Goebel][]
 - enh(axapta) Update keyword list for Axapta (X++) (#2686) [Ryan Jonasson][]
+- fix(fortran) FORTRAN 77-style comments (#2677) [Philipp Engel][]
 
 [David Pine]: https://github.com/IEvangelist
 [Josh Goebel]: https://github.com/yyyc514
 [Ryan Jonasson]: https://github.com/ryanjonasson
+[Philipp Engel]: https://github.com/interkosmos
 [Konrad Rudolph]: https://github.com/klmr
 
 ## Version 10.2.0

Diff for: src/languages/fortran.js

@@ -14,8 +14,9 @@ export default function(hljs) {
   const COMMENT = {
     variants: [
       hljs.COMMENT('!', '$', {relevance: 0}),
-      // allow Fortran 77 style comments
-      hljs.COMMENT('^C', '$', {relevance: 0})
+      // allow FORTRAN 77 style comments
+      hljs.COMMENT('^C[ ]', '$', {relevance: 0}),
+      hljs.COMMENT('^C$', '$', {relevance: 0})
     ]
   };
 

Diff for: test/markup/fortran/comments.expect.txt

@@ -1,7 +1,3 @@
-<span class="hljs-comment">C</span>
-<span class="hljs-comment">C  This program in FORTRAN 77 outputs &quot;Hello, World!&quot;.</span>
-<span class="hljs-comment">C ====================================================</span>
-
   <span class="hljs-comment">!===============================</span>
   <span class="hljs-comment">!   This is a test subroutine</span>
   <span class="hljs-comment">!===============================</span>
@@ -11,3 +7,5 @@
 C=<span class="hljs-number">2</span>
 C = <span class="hljs-number">2</span> <span class="hljs-comment">!correct</span>
 C =<span class="hljs-string">&#x27;boo&#x27;</span>
+
+<span class="hljs-keyword">contains</span>

Diff for: test/markup/fortran/comments.txt

@@ -1,7 +1,3 @@
-C
-C  This program in FORTRAN 77 outputs "Hello, World!".
-C ====================================================
-
   !===============================
   !   This is a test subroutine
   !===============================
@@ -11,3 +7,5 @@ C ====================================================
 C=2
 C = 2 !correct
 C ='boo'
+
+contains