Changeset View
Changeset View
Standalone View
Standalone View
autotests/html/highlight.f.html
Show All 14 Lines | |||||
15 | <span style="color:#898887;">* this 'c' shouldn't be highlighted as a comment!</span> | 15 | <span style="color:#898887;">* this 'c' shouldn't be highlighted as a comment!</span> | ||
16 | c | 16 | c | ||
17 | 17 | | |||
18 | <span style="color:#898887;">* Prints the values of e ** (j * i * pi / 4) for i = 0, 1, 2, ..., 7</span> | 18 | <span style="color:#898887;">* Prints the values of e ** (j * i * pi / 4) for i = 0, 1, 2, ..., 7</span> | ||
19 | <span style="color:#898887;">* where j is the imaginary number sqrt(-1)</span> | 19 | <span style="color:#898887;">* where j is the imaginary number sqrt(-1)</span> | ||
20 | 20 | | |||
21 | <span style="font-weight:bold;">PROGRAM</span> CMPLXD | 21 | <span style="font-weight:bold;">PROGRAM</span> CMPLXD | ||
22 | <span style="font-weight:bold;">IMPLICIT</span> <span style="color:#0057ae;">COMPLEX(X)</span> | 22 | <span style="font-weight:bold;">IMPLICIT</span> <span style="color:#0057ae;">COMPLEX(X)</span> | ||
23 | <span style="color:#0057ae;">PARAMETER</span> (PI <span style="font-weight:bold;">=</span> <span style="color:#b08000;">3.141592653589793</span>, XJ <span style="font-weight:bold;">=</span> (<span style="color:#b08000;">0</span>, <span style="color:#b08000;">1</span>)) | 23 | <span style="color:#0057ae;">PARAMETER</span> (PI <span style="font-weight:bold;">=</span> <span style="color:#b08000;">3.141592653589793</span>, XJ <span style="font-weight:bold;">=</span> (<span style="color:#b08000;">0</span>, <span style="color:#b08000;">1</span>)) <span style="color:#898887;">this text should be highlighted as a comment because it is after the 72th column (ignored by the compiler)</span> | ||
24 | <span style="font-weight:bold;">DO</span> <span style="color:#b08000;">1</span>, I <span style="font-weight:bold;">=</span> <span style="color:#b08000;">0</span>, <span style="color:#b08000;">7</span> | 24 | <span style="font-weight:bold;">DO</span> <span style="color:#b08000;">1</span>, I <span style="font-weight:bold;">=</span> <span style="color:#b08000;">0</span>, <span style="color:#b08000;">7</span> | ||
25 | X <span style="font-weight:bold;">=</span> <span style="color:#644a9b;font-weight:bold;">EXP</span>(XJ <span style="font-weight:bold;">*</span> I <span style="font-weight:bold;">*</span> PI <span style="font-weight:bold;">/</span> <span style="color:#b08000;">4</span>) | 25 | X <span style="font-weight:bold;">=</span> <span style="color:#644a9b;font-weight:bold;">EXP</span>(XJ <span style="font-weight:bold;">*</span> I <span style="font-weight:bold;">*</span> PI <span style="font-weight:bold;">/</span> <span style="color:#b08000;">4</span>) | ||
26 | <span style="font-weight:bold;">IF</span> (<span style="color:#644a9b;font-weight:bold;">AIMAG</span>(X)<span style="font-weight:bold;">.LT.</span><span style="color:#b08000;">0</span>) <span style="font-weight:bold;">THEN</span> | 26 | <span style="font-weight:bold;">IF</span> (<span style="color:#644a9b;font-weight:bold;">AIMAG</span>(X)<span style="font-weight:bold;">.LT.</span><span style="color:#b08000;">0</span>) <span style="font-weight:bold;">THEN</span> | ||
27 | <span style="color:#644a9b;">PRINT</span> <span style="color:#b08000;">2</span>, <span style="color:#bf0303;">'e**(j*'</span>, I, <span style="color:#bf0303;">'*pi/4) = '</span>, <span style="color:#0057ae;">REAL(X)</span>, <span style="color:#bf0303;">' - j'</span>,<span style="font-weight:bold;">-</span><span style="color:#644a9b;font-weight:bold;">AIMAG</span>(X) | 27 | <span style="color:#644a9b;">PRINT</span> <span style="color:#b08000;">2</span>, <span style="color:#bf0303;">'e**(j*'</span>, I, <span style="color:#bf0303;">'*pi/4) = '</span>, <span style="color:#898887;">! I am an in-line comment</span> | ||
28 | <span style="color:#644a9b;font-weight:bold;"> *</span> <span style="color:#0057ae;">REAL(X)</span>, <span style="color:#bf0303;">' - j'</span>,<span style="font-weight:bold;">-</span><span style="color:#644a9b;font-weight:bold;">AIMAG</span>(X) <span style="color:#898887;">! the character at the 6th column indicate a continuation line and should be highlighted as a continuation character</span> | ||||
28 | <span style="font-weight:bold;">ELSE</span> | 29 | <span style="font-weight:bold;">ELSE</span> | ||
29 | <span style="color:#644a9b;">PRINT</span> <span style="color:#b08000;">2</span>, <span style="color:#bf0303;">'e**(j*'</span>, I, <span style="color:#bf0303;">'*pi/4) = '</span>, <span style="color:#0057ae;">REAL(X)</span>, <span style="color:#bf0303;">' + j'</span>, <span style="color:#644a9b;font-weight:bold;">AIMAG</span>(X) | 30 | <span style="color:#644a9b;">PRINT</span> <span style="color:#b08000;">2</span>, <span style="color:#bf0303;">'e**(j*'</span>, I, <span style="color:#bf0303;">'*pi/4) = '</span>, | ||
31 | <span style="color:#644a9b;font-weight:bold;"> *</span> <span style="color:#0057ae;">REAL(X)</span>, <span style="color:#bf0303;">' + j'</span>, <span style="color:#644a9b;font-weight:bold;">AIMAG</span>(X) | ||||
30 | <span style="font-weight:bold;">END IF</span> | 32 | <span style="font-weight:bold;">END IF</span> | ||
31 | <span style="color:#644a9b;">FORMAT (</span>A, I1, A, F10.7, A, F9.7<span style="color:#644a9b;">)</span> | 33 | <span style="color:#644a9b;">FORMAT (</span>A, I1, A, F10.7, A, F9.7<span style="color:#644a9b;">)</span> | ||
32 | <span style="font-weight:bold;">CONTINUE</span> | 34 | <span style="font-weight:bold;">CONTINUE</span> | ||
35 | <span style="font-weight:bold;">ENDDO</span> | ||||
33 | <span style="font-weight:bold;">STOP</span> | 36 | <span style="font-weight:bold;">STOP</span> | ||
34 | <span style="font-weight:bold;">END</span> | 37 | <span style="font-weight:bold;">END</span> | ||
35 | </pre></body></html> | 38 | </pre></body></html> |