Allow type/class in implicit statements

Author: ZedThree

grammar.js

@@ -616,7 +616,10 @@ module.exports = grammar({
       caseInsensitive('implicit'),
       choice(
         commaSep1(seq(
-          $.intrinsic_type,
+          choice(
+            $.intrinsic_type,
+            $.derived_type
+          ),
           '(',
           commaSep1($.implicit_range),
           ')'
@@ -842,7 +845,10 @@ module.exports = grammar({
     procedure_declaration: $ => seq(
       caseInsensitive('procedure'),
       optional(seq(
-        '(', optional(alias($.identifier, $.procedure_interface)), ')'
+        '(',
+        optional(
+          alias($.identifier, $.procedure_interface)),
+        ')'
       )),
       optional(seq(',', commaSep1($.procedure_attribute))),
     ),

src/grammar.json

@@ -9645,8 +9645,17 @@
                   "type": "SEQ",
                   "members": [
                     {
-                      "type": "SYMBOL",
-                      "name": "intrinsic_type"
+                      "type": "CHOICE",
+                      "members": [
+                        {
+                          "type": "SYMBOL",
+                          "name": "intrinsic_type"
+                        },
+                        {
+                          "type": "SYMBOL",
+                          "name": "derived_type"
+                        }
+                      ]
                     },
                     {
                       "type": "STRING",
@@ -9696,8 +9705,17 @@
                         "type": "SEQ",
                         "members": [
                           {
-                            "type": "SYMBOL",
-                            "name": "intrinsic_type"
+                            "type": "CHOICE",
+                            "members": [
+                              {
+                                "type": "SYMBOL",
+                                "name": "intrinsic_type"
+                              },
+                              {
+                                "type": "SYMBOL",
+                                "name": "derived_type"
+                              }
+                            ]
                           },
                           {
                             "type": "STRING",

src/node-types.json

@@ -3284,6 +3284,10 @@
       "multiple": true,
       "required": true,
       "types": [
+        {
+          "type": "derived_type",
+          "named": true
+        },
         {
           "type": "implicit_range",
           "named": true