|
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