From 42f1df4d391126e9135d7c7a6e27931ca85c709e Mon Sep 17 00:00:00 2001 From: Philipp Date: Fri, 3 Jan 2020 21:18:44 +0100 Subject: [PATCH] (fortran) added `block` and `endblock` keywords (#2343) * Added Fortran `block` statement. * Added Fortran `endblock` statement. - Closes #2342. --- CHANGES.md | 2 ++ src/languages/fortran.js | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/CHANGES.md b/CHANGES.md index c273c236d8..7096ef2964 100644 --- a/CHANGES.md +++ b/CHANGES.md @@ -14,6 +14,7 @@ Core Changes: Language Improvements: +- (fortran) added `block` and `endblock` keywords (#2343) [Philipp Engel][] - (javascript) support jsx fragments (#2333) [Josh Goebel][] - (ini) support TOML arrays, clean up grammar (#2335) [Josh Goebel][] - (vbnet) add nameof operator to the keywords (#2329) [Youssef Victor][] @@ -21,6 +22,7 @@ Language Improvements: [Jeffrey Arnold]: https://github.com/jrnold [Josh Goebel]: https://github.com/yyyc514 +[Philipp Engel]: https://github.com/interkosmos [Youssef Victor]: https://github.com/Youssef1313 diff --git a/src/languages/fortran.js b/src/languages/fortran.js index 74e194a022..aecd3dcc7e 100644 --- a/src/languages/fortran.js +++ b/src/languages/fortran.js @@ -14,7 +14,7 @@ function(hljs) { var F_KEYWORDS = { literal: '.False. .True.', keyword: 'kind do while private call intrinsic where elsewhere ' + - 'type endtype endmodule endselect endinterface end enddo endif if forall endforall only contains default return stop then ' + + 'type endtype endmodule endselect endinterface end enddo endif if forall endforall only contains default return stop then block endblock ' + 'public subroutine|10 function program .and. .or. .not. .le. .eq. .ge. .gt. .lt. ' + 'goto save else use module select case ' + 'access blank direct exist file fmt form formatted iostat name named nextrec number opened rec recl sequential status unformatted unit ' +