|
2059 | 2059 | "derived-type-component-type-specification": { |
2060 | 2060 | "comment": "Introduced in the Fortran 1995 standard.", |
2061 | 2061 | "name": "meta.specification.type.fortran", |
2062 | | - "begin": "(?ix)(?=\\b(?:character|class|complex|double\\s*precision|integer|logical|real|type)\\b(?![^'\";!\\n]*\\bfunction\\b))", |
| 2062 | + "begin": "(?ix)(?=\\b(?:character|class|complex|double\\s*precision|double\\s*complex|integer|logical|real|type)\\b(?![^'\";!\\n]*\\bfunction\\b))", |
2063 | 2063 | "end": "(?=[;!\\n])", |
2064 | 2064 | "patterns": [ |
2065 | 2065 | { |
|
4064 | 4064 | }, |
4065 | 4065 | "type-specification-statements": { |
4066 | 4066 | "name": "meta.specification.type.fortran", |
4067 | | - "begin": "(?ix)(?=\\b(?:character|class|complex|double\\s*precision|integer|logical|real|type)\\b(?![^'\";!\\n]*\\bfunction\\b))", |
| 4067 | + "begin": "(?ix)(?=\\b(?:character|class|complex|double\\s*precision|double\\s*complex|integer|logical|real|type)\\b(?![^'\";!\\n]*\\bfunction\\b))", |
4068 | 4068 | "end": "(?=[\\);!\\n])", |
4069 | 4069 | "patterns": [ |
4070 | 4070 | { |
|
4570 | 4570 | "derived-type": { |
4571 | 4571 | "comment": "Introduced in the Fortran 1995 standard.", |
4572 | 4572 | "name": "meta.specification.type.derived.fortran", |
4573 | | - "match": "(?i)\\b(?:(class)|(type))\\s*(\\()\\s*([a-z]\\w*)(\\))", |
| 4573 | + "match": "(?i)\\b(?:(class)|(type))\\s*(\\()\\s*(([a-z]\\w*)|\\*)\\s*(\\))", |
4574 | 4574 | "captures": { |
4575 | 4575 | "1": { |
4576 | 4576 | "name": "storage.type.class.fortran" |
|
4635 | 4635 | "comment": "Introduced in the Fortran 1977 standard.", |
4636 | 4636 | "patterns": [ |
4637 | 4637 | { |
4638 | | - "begin": "(?i)\\b(?:(complex)|(double\\s*precision)|(integer)|(real))\\s*(?=\\()", |
| 4638 | + "begin": "(?i)\\b(?:(complex)|(double\\s*precision)|(double\\s*complex)|(integer)|(real))\\s*(?=\\()", |
4639 | 4639 | "beginCaptures": { |
4640 | 4640 | "1": { |
4641 | 4641 | "name": "storage.type.complex.fortran" |
|
4644 | 4644 | "name": "storage.type.double.fortran" |
4645 | 4645 | }, |
4646 | 4646 | "3": { |
4647 | | - "name": "storage.type.integer.fortran" |
| 4647 | + "name": "storage.type.doublecomplex.fortran" |
4648 | 4648 | }, |
4649 | 4649 | "4": { |
4650 | | - "name": "storage.type.real.fortran" |
| 4650 | + "name": "storage.type.integer.fortran" |
4651 | 4651 | }, |
4652 | 4652 | "5": { |
| 4653 | + "name": "storage.type.real.fortran" |
| 4654 | + }, |
| 4655 | + "6": { |
4653 | 4656 | "name": "punctuation.parentheses.left.fortran" |
4654 | 4657 | } |
4655 | 4658 | }, |
|
4667 | 4670 | ] |
4668 | 4671 | }, |
4669 | 4672 | { |
4670 | | - "match": "(?ix)\\b(?:(complex)|(double\\s*precision)|(integer)|(real))\\b(?:\\s*(\\*)\\s*(\\d*))?", |
| 4673 | + "match": "(?ix)\\b(?:(complex)|(double\\s*precision)|(double\\s*complex)|(integer)|(real))\\b(?:\\s*(\\*)\\s*(\\d*))?", |
4671 | 4674 | "captures": { |
4672 | 4675 | "1": { |
4673 | 4676 | "name": "storage.type.complex.fortran" |
|
4676 | 4679 | "name": "storage.type.double.fortran" |
4677 | 4680 | }, |
4678 | 4681 | "3": { |
4679 | | - "name": "storage.type.integer.fortran" |
| 4682 | + "name": "storage.type.doublecomplex.fortran" |
4680 | 4683 | }, |
4681 | 4684 | "4": { |
4682 | | - "name": "storage.type.real.fortran" |
| 4685 | + "name": "storage.type.integer.fortran" |
4683 | 4686 | }, |
4684 | 4687 | "5": { |
4685 | | - "name": "keyword.operator.multiplication.fortran" |
| 4688 | + "name": "storage.type.real.fortran" |
4686 | 4689 | }, |
4687 | 4690 | "6": { |
| 4691 | + "name": "keyword.operator.multiplication.fortran" |
| 4692 | + }, |
| 4693 | + "7": { |
4688 | 4694 | "name": "constant.numeric.fortran" |
4689 | 4695 | } |
4690 | 4696 | } |
|
0 commit comments