static void language_highlight_fortran (language_structure * language, syntax_structure * syntax) {
	const char * separators = ",:<=>+-*/&()[]\"\' \t\r\n";

	const char * keywords [] = {
		"allocatable",  "allocate",     "associate",    "backspace",    "block",        "call",         "case",         "common",
		"contains",     "cycle",        "data",         "deallocate",   "d0",           "do",           "else",         "elseif",
		"end",          "enddo",        "endfile",      "endif",        "entry",        "equivalence",  "exit",         "external",
		"forall",       "format",       "function",     "goto",         "if",           "implicit",     "inquire",      "intent",
		"intrinsic",    "module",       "namelist",     "none",         "nullify",      "only",         "open",         "optional",
		"parameter",    "pointer",      "print",        "private",      "program",      "public",       "read",         "recursive",
		"return",       "rewind",       "save",         "select",       "sequence",     "stop",         "subroutine",   "target",
		"then",         "to",           "type",         "use",          "where",        "write"
	};

	const char * types [] = {
		"character",    "integer",      "logical",      "real",         "complex"
	};

	const char * subkeywords [] = {
		".and.",        ".or.",         ".not.",        ".true.",       ".false.",      "in",           "out",          "len",
		"dimension",    "modulo",       "advance"
	};

	syntax_define (syntax, false, false, "!",  "\n", '\0', language->comment_colour,   language->comment_effect);
	syntax_define (syntax, false, false, "'",  "'",  '\\', language->character_colour, language->character_effect);
	syntax_define (syntax, false, false, "\"", "\"", '\\', language->string_colour,    language->string_effect);

	for (ulong word = 0; word < array_length (keywords); ++word) {
		syntax_define (syntax, false, true, keywords [word], separators, '\0', language->keyword_colour, language->keyword_effect);
	}

	for (ulong word = 0; word < array_length (subkeywords); ++word) {
		syntax_define (syntax, false, true, subkeywords [word], separators, '\0', language->processor_colour, language->processor_effect);
	}

	for (ulong word = 0; word < array_length (types); ++word) {
		syntax_define (syntax, false, true, types [word], separators, '\0', language->type_colour, language->type_effect);
	}

	syntax_define (syntax, true, false, "()[]",       "", '\0', language->bracket_colour,  language->bracket_effect);
	syntax_define (syntax, true, false, ",:<=>+-*/&", "", '\0', language->operator_colour, language->operator_effect);

	syntax_define (syntax, true, true, "0123456789",                 separators, '\0', language->number_colour,     language->number_effect);
	syntax_define (syntax, true, true, "abcdefghijklmnopqrstuvwxyz", separators, '\0', language->lowercase_colour,  language->lowercase_effect);
	syntax_define (syntax, true, true, "ABCDEFGHIJKLMNOPQRSTUVWXYZ", separators, '\0', language->uppercase_colour,  language->uppercase_effect);
	syntax_define (syntax, true, true, "_",                          separators, '\0', language->underscore_colour, language->underscore_effect);
}