Changeset View
Changeset View
Standalone View
Standalone View
autotests/reference/highlight.f.ref
1 | <Comment>* This file is an example to test the syntax highlighting file fortran-fixed.xml</Comment><br/> | 1 | <Comment>* This file is an example to test the syntax highlighting file fortran-fixed.xml</Comment><br/> | ||
---|---|---|---|---|---|
2 | <Comment>* (for fortran, fixed format)</Comment><br/> | 2 | <Comment>* (for fortran, fixed format)</Comment><br/> | ||
3 | <Normal Text></Normal Text><br/> | 3 | <Normal Text></Normal Text><br/> | ||
4 | <Comment>c <-- this is a comment in the old fortran 77 style (fixed form)</Comment><br/> | 4 | <Comment>c <-- this is a comment in the old fortran 77 style (fixed form)</Comment><br/> | ||
5 | <Comment>c In the free form file, so we shouldn't use this kind of comments!</Comment><br/> | 5 | <Comment>c In the free form file, so we shouldn't use this kind of comments!</Comment><br/> | ||
6 | <Comment>c But fortran 90 still understands fixed form, when parsing sources with</Comment><br/> | 6 | <Comment>c But fortran 90 still understands fixed form, when parsing sources with</Comment><br/> | ||
7 | <Comment>c the *.f extension.</Comment><br/> | 7 | <Comment>c the *.f extension.</Comment><br/> | ||
8 | <Normal Text></Normal Text><br/> | 8 | <Normal Text></Normal Text><br/> | ||
9 | <Comment>* this 'c' shouldn't be highlighted as a comment!</Comment><br/> | 9 | <Comment>* this 'c' shouldn't be highlighted as a comment!</Comment><br/> | ||
10 | <Normal Text> c</Normal Text><br/> | 10 | <Normal Text> c</Normal Text><br/> | ||
11 | <Normal Text></Normal Text><br/> | 11 | <Normal Text></Normal Text><br/> | ||
12 | <Comment>* Prints the values of e ** (j * i * pi / 4) for i = 0, 1, 2, ..., 7</Comment><br/> | 12 | <Comment>* Prints the values of e ** (j * i * pi / 4) for i = 0, 1, 2, ..., 7</Comment><br/> | ||
13 | <Comment>* where j is the imaginary number sqrt(-1)</Comment><br/> | 13 | <Comment>* where j is the imaginary number sqrt(-1)</Comment><br/> | ||
14 | <Normal Text></Normal Text><br/> | 14 | <Normal Text></Normal Text><br/> | ||
15 | <Keyword>PROGRAM</Keyword><Normal Text> CMPLXD</Normal Text><br/> | 15 | <Normal Text> </Normal Text><Keyword>PROGRAM</Keyword><Normal Text> CMPLXD</Normal Text><br/> | ||
16 | <Normal Text> </Normal Text><Keyword>IMPLICIT</Keyword><Normal Text> </Normal Text><Data Type>COMPLEX(X)</Data Type><br/> | 16 | <Normal Text> </Normal Text><Keyword>IMPLICIT</Keyword><Normal Text> </Normal Text><Data Type>COMPLEX(X)</Data Type><br/> | ||
17 | <Normal Text> </Normal Text><Data Type>PARAMETER</Data Type><Normal Text> </Normal Text><Symbol>(</Symbol><Normal Text>PI </Normal Text><Keyword>=</Keyword><Normal Text> </Normal Text><Float>3.141592653589793</Float><Symbol>,</Symbol><Normal Text> XJ </Normal Text><Keyword>=</Keyword><Normal Text> </Normal Text><Symbol>(</Symbol><Decimal>0</Decimal><Symbol>,</Symbol><Normal Text> </Normal Text><Decimal>1</Decimal><Symbol>))</Symbol><br/> | 17 | <Normal Text> </Normal Text><Data Type>PARAMETER</Data Type><Normal Text> </Normal Text><Symbol>(</Symbol><Normal Text>PI </Normal Text><Keyword>=</Keyword><Normal Text> </Normal Text><Float>3.141592653589793</Float><Symbol>,</Symbol><Normal Text> XJ </Normal Text><Keyword>=</Keyword><Normal Text> </Normal Text><Symbol>(</Symbol><Decimal>0</Decimal><Symbol>,</Symbol><Normal Text> </Normal Text><Decimal>1</Decimal><Symbol>))</Symbol><Normal Text> </Normal Text><Comment>this text should be highlighted as a comment because it is after the 72th column (ignored by the compiler)</Comment><br/> | ||
18 | <Normal Text> </Normal Text><Keyword>DO</Keyword><Normal Text> </Normal Text><Decimal>1</Decimal><Symbol>,</Symbol><Normal Text> I </Normal Text><Keyword>=</Keyword><Normal Text> </Normal Text><Decimal>0</Decimal><Symbol>,</Symbol><Normal Text> </Normal Text><Decimal>7</Decimal><br/> | 18 | <Normal Text> </Normal Text><Keyword>DO</Keyword><Normal Text> </Normal Text><Decimal>1</Decimal><Symbol>,</Symbol><Normal Text> I </Normal Text><Keyword>=</Keyword><Normal Text> </Normal Text><Decimal>0</Decimal><Symbol>,</Symbol><Normal Text> </Normal Text><Decimal>7</Decimal><br/> | ||
19 | <Normal Text> X </Normal Text><Keyword>=</Keyword><Normal Text> </Normal Text><Elemental Procedure>EXP</Elemental Procedure><Symbol>(</Symbol><Normal Text>XJ </Normal Text><Keyword>*</Keyword><Normal Text> I </Normal Text><Keyword>*</Keyword><Normal Text> PI </Normal Text><Keyword>/</Keyword><Normal Text> </Normal Text><Decimal>4</Decimal><Symbol>)</Symbol><br/> | 19 | <Normal Text> X </Normal Text><Keyword>=</Keyword><Normal Text> </Normal Text><Elemental Procedure>EXP</Elemental Procedure><Symbol>(</Symbol><Normal Text>XJ </Normal Text><Keyword>*</Keyword><Normal Text> I </Normal Text><Keyword>*</Keyword><Normal Text> PI </Normal Text><Keyword>/</Keyword><Normal Text> </Normal Text><Decimal>4</Decimal><Symbol>)</Symbol><br/> | ||
20 | <Normal Text> </Normal Text><Keyword>IF</Keyword><Normal Text> </Normal Text><Symbol>(</Symbol><Elemental Procedure>AIMAG</Elemental Procedure><Symbol>(</Symbol><Normal Text>X</Normal Text><Symbol>)</Symbol><Operator>.LT.</Operator><Decimal>0</Decimal><Symbol>)</Symbol><Normal Text> </Normal Text><Keyword>THEN</Keyword><br/> | 20 | <Normal Text> </Normal Text><Keyword>IF</Keyword><Normal Text> </Normal Text><Symbol>(</Symbol><Elemental Procedure>AIMAG</Elemental Procedure><Symbol>(</Symbol><Normal Text>X</Normal Text><Symbol>)</Symbol><Operator>.LT.</Operator><Decimal>0</Decimal><Symbol>)</Symbol><Normal Text> </Normal Text><Keyword>THEN</Keyword><br/> | ||
21 | <Normal Text> </Normal Text><IO Function>PRINT</IO Function><Normal Text> </Normal Text><Decimal>2</Decimal><Symbol>,</Symbol><Normal Text> </Normal Text><String>'e**(j*'</String><Symbol>,</Symbol><Normal Text> I</Normal Text><Symbol>,</Symbol><Normal Text> </Normal Text><String>'*pi/4) = '</String><Symbol>,</Symbol><Normal Text> </Normal Text><Data Type>REAL(X)</Data Type><Symbol>,</Symbol><Normal Text> </Normal Text><String>' - j'</String><Symbol>,</Symbol><Keyword>-</Keyword><Elemental Procedure>AIMAG</Elemental Procedure><Symbol>(</Symbol><Normal Text>X</Normal Text><Symbol>)</Symbol><br/> | 21 | <Normal Text> </Normal Text><IO Function>PRINT</IO Function><Normal Text> </Normal Text><Decimal>2</Decimal><Symbol>,</Symbol><Normal Text> </Normal Text><String>'e**(j*'</String><Symbol>,</Symbol><Normal Text> I</Normal Text><Symbol>,</Symbol><Normal Text> </Normal Text><String>'*pi/4) = '</String><Symbol>,</Symbol><Normal Text> </Normal Text><Comment>! I am an in-line comment</Comment><br/> | ||
22 | <Continuation character> *</Continuation character><Normal Text> </Normal Text><Data Type>REAL(X)</Data Type><Symbol>,</Symbol><Normal Text> </Normal Text><String>' - j'</String><Symbol>,</Symbol><Keyword>-</Keyword><Elemental Procedure>AIMAG</Elemental Procedure><Symbol>(</Symbol><Normal Text>X</Normal Text><Symbol>)</Symbol><Normal Text> </Normal Text><Comment>! the character at the 6th column indicate a continuation line and should be highlighted as a continuation character</Comment><br/> | ||||
22 | <Normal Text> </Normal Text><Keyword>ELSE</Keyword><br/> | 23 | <Normal Text> </Normal Text><Keyword>ELSE</Keyword><br/> | ||
23 | <Normal Text> </Normal Text><IO Function>PRINT</IO Function><Normal Text> </Normal Text><Decimal>2</Decimal><Symbol>,</Symbol><Normal Text> </Normal Text><String>'e**(j*'</String><Symbol>,</Symbol><Normal Text> I</Normal Text><Symbol>,</Symbol><Normal Text> </Normal Text><String>'*pi/4) = '</String><Symbol>,</Symbol><Normal Text> </Normal Text><Data Type>REAL(X)</Data Type><Symbol>,</Symbol><Normal Text> </Normal Text><String>' + j'</String><Symbol>,</Symbol><Normal Text> </Normal Text><Elemental Procedure>AIMAG</Elemental Procedure><Symbol>(</Symbol><Normal Text>X</Normal Text><Symbol>)</Symbol><br/> | 24 | <Normal Text> </Normal Text><IO Function>PRINT</IO Function><Normal Text> </Normal Text><Decimal>2</Decimal><Symbol>,</Symbol><Normal Text> </Normal Text><String>'e**(j*'</String><Symbol>,</Symbol><Normal Text> I</Normal Text><Symbol>,</Symbol><Normal Text> </Normal Text><String>'*pi/4) = '</String><Symbol>,</Symbol><br/> | ||
25 | <Continuation character> *</Continuation character><Normal Text> </Normal Text><Data Type>REAL(X)</Data Type><Symbol>,</Symbol><Normal Text> </Normal Text><String>' + j'</String><Symbol>,</Symbol><Normal Text> </Normal Text><Elemental Procedure>AIMAG</Elemental Procedure><Symbol>(</Symbol><Normal Text>X</Normal Text><Symbol>)</Symbol><br/> | ||||
24 | <Normal Text> </Normal Text><Keyword>END IF</Keyword><br/> | 26 | <Normal Text> </Normal Text><Keyword>END IF</Keyword><br/> | ||
25 | <Normal Text> </Normal Text><IO Function>FORMAT (</IO Function><Normal Text>A</Normal Text><Symbol>,</Symbol><Normal Text> I1</Normal Text><Symbol>,</Symbol><Normal Text> A</Normal Text><Symbol>,</Symbol><Normal Text> F10.7</Normal Text><Symbol>,</Symbol><Normal Text> A</Normal Text><Symbol>,</Symbol><Normal Text> F9.7</Normal Text><IO Function>)</IO Function><br/> | 27 | <Normal Text> </Normal Text><IO Function>FORMAT (</IO Function><Normal Text>A</Normal Text><Symbol>,</Symbol><Normal Text> I1</Normal Text><Symbol>,</Symbol><Normal Text> A</Normal Text><Symbol>,</Symbol><Normal Text> F10.7</Normal Text><Symbol>,</Symbol><Normal Text> A</Normal Text><Symbol>,</Symbol><Normal Text> F9.7</Normal Text><IO Function>)</IO Function><br/> | ||
26 | <Normal Text> </Normal Text><Keyword>CONTINUE</Keyword><br/> | 28 | <Normal Text> </Normal Text><Keyword>CONTINUE</Keyword><br/> | ||
29 | <Normal Text> </Normal Text><Keyword>ENDDO</Keyword><br/> | ||||
27 | <Normal Text> </Normal Text><Keyword>STOP</Keyword><br/> | 30 | <Normal Text> </Normal Text><Keyword>STOP</Keyword><br/> | ||
28 | <Keyword>END</Keyword><br/> | 31 | <Normal Text> </Normal Text><Keyword>END</Keyword><br/> |