feat(language): add code fortran (@slammon) (#6009)

3 files changed, 209 insertions, 1 deletions

diff --git a/frontend/static/languages/_groups.json b/frontend/static/languages/_groups.json
index 0bfc752e2..b24ab8c43 100644
--- a/frontend/static/languages/_groups.json
+++ b/frontend/static/languages/_groups.json
@@ -613,7 +613,8 @@
       "code_typescript",
       "code_cobol",
       "code_common_lisp",
-      "code_odin"
+      "code_odin",
+      "code_fortran"
     ]
   }
 ]
diff --git a/frontend/static/languages/_list.json b/frontend/static/languages/_list.json
index a07fc5655..8b9426f8b 100644
--- a/frontend/static/languages/_list.json
+++ b/frontend/static/languages/_list.json
@@ -356,4 +356,5 @@
   ,"code_cobol"
   ,"code_common_lisp"
   ,"docker_file"
+  ,"code_fortran"
 ]
diff --git a/frontend/static/languages/code_fortran.json b/frontend/static/languages/code_fortran.json
new file mode 100644
index 000000000..eace6e4b5
--- /dev/null
+++ b/frontend/static/languages/code_fortran.json
@@ -0,0 +1,206 @@
+{
+  "name": "code_fortran",
+  "noLazyMode": true,
+  "words": [
+    "program",
+    "end",
+    "subroutine",
+    "function",
+    "module",
+    "use",
+    "implicit",
+    "none",
+    "integer",
+    "real",
+    "complex",
+    "double",
+    "precision",
+    "logical",
+    "character",
+    "dimension",
+    "allocate",
+    "deallocate",
+    "if",
+    "then",
+    "else",
+    "endif",
+    "do",
+    "while",
+    "enddo",
+    "call",
+    "return",
+    "stop",
+    "pause",
+    "read",
+    "write",
+    "print",
+    "format",
+    "open",
+    "close",
+    "inquire",
+    "data",
+    "common",
+    "equivalence",
+    "save",
+    "continue",
+    "exit",
+    "cycle",
+    "select",
+    "case",
+    "default",
+    "type",
+    "contains",
+    "public",
+    "private",
+    "block",
+    "interface",
+    "procedure",
+    "extends",
+    "intent",
+    "optional",
+    "pointer",
+    "target",
+    "nullify",
+    "associate",
+    "forall",
+    "where",
+    "elsewhere",
+    "intrinsic",
+    "external",
+    "abstract",
+    "sequence",
+    "recursive",
+    "pure",
+    "elemental",
+    "result",
+    "entry",
+    "bind",
+    "import",
+    "value",
+    "volatile",
+    "asynchronous",
+    "lock",
+    "unlock",
+    "sync",
+    "memory",
+    "atomic",
+    "critical",
+    "submodule",
+    "generic",
+    "class",
+    "rank",
+    "endfile",
+    "backspace",
+    "rewind",
+    "advance",
+    "iostat",
+    "err",
+    "iomsg",
+    "allocatable",
+    "final",
+    "pass",
+    "nopass",
+    "non_overridable",
+    "deferred",
+    "protected",
+    "contiguous",
+    "concurrent",
+    "error",
+    "action",
+    "position",
+    "file",
+    "access",
+    "status",
+    "form",
+    "blank",
+    "delim",
+    "pad",
+    "rec",
+    "iolength",
+    "namelist",
+    "flush",
+    "asis",
+    "newunit",
+    "decimal",
+    "round",
+    "sign",
+    "random_number",
+    "random_seed",
+    "cpu_time",
+    "system_clock",
+    "date_and_time",
+    "len_trim",
+    "operator",
+    "assignment",
+    "len",
+    "size",
+    "kind",
+    "sum",
+    "product",
+    "matmul",
+    "transpose",
+    "reshape",
+    "spread",
+    "maxval",
+    "minval",
+    "any",
+    "all",
+    "count",
+    "maxloc",
+    "minloc",
+    "pack",
+    "unpack",
+    "merge",
+    "epsilon",
+    "tiny",
+    "huge",
+    "bit_size",
+    "selected_int_kind",
+    "selected_real_kind",
+    "storage_size",
+    "log",
+    "sin",
+    "cos",
+    "tan",
+    "atan",
+    "sqrt",
+    "exp",
+    "abs",
+    "acos",
+    "asin",
+    "atan2",
+    "ceiling",
+    "floor",
+    "mod",
+    "modulo",
+    "nint",
+    "aimag",
+    "conjg",
+    "cmplx",
+    "dble",
+    "int",
+    "float",
+    "isnan",
+    "ior",
+    "iand",
+    "ieor",
+    "shiftl",
+    "shiftr",
+    "ibits",
+    "btest",
+    "lbound",
+    "ubound",
+    "shape",
+    "cshift",
+    "eoshift",
+    "dot_product",
+    "allocated",
+    "present",
+    "merge_bits",
+    "bit_and",
+    "associated",
+    "adjustl",
+    "adjustr",
+    "trim"
+  ]
+}