Warning, file /frameworks/syntax-highlighting/autotests/html/highlight.f.html was not indexed or was modified since last indexation (in which case cross-reference links may be missing, inaccurate or erroneous).

0001 <!DOCTYPE html>
0002 <html><head>
0003 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
0004 <title>highlight.f</title>
0005 <meta name="generator" content="KF5::SyntaxHighlighting - Definition (Fortran (Fixed Format)) - Theme (Breeze Light)"/>
0006 </head><body style="background-color:#ffffff;color:#1f1c1b"><pre>
0007 <span style="color:#898887;">* This file is an example to test the syntax highlighting file fortran-fixed.xml</span>
0008 <span style="color:#898887;">* (for fortran, fixed format)</span>
0009 
0010 <span style="color:#898887;">c &lt;-- this is a comment in the old fortran 77 style (fixed form)</span>
0011 <span style="color:#898887;">c In the free form file, so we shouldn't use this kind of comments!</span>
0012 <span style="color:#898887;">c But fortran 90 still understands fixed form, when parsing sources with</span>
0013 <span style="color:#898887;">c the *.f extension.</span>
0014 
0015 <span style="color:#898887;">* this 'c' shouldn't be highlighted as a comment!</span>
0016  c
0017 
0018 <span style="color:#898887;">*     Prints the values of e ** (j * i * pi / 4) for i = 0, 1, 2, ..., 7</span>
0019 <span style="color:#898887;">*         where j is the imaginary number sqrt(-1)</span>
0020 
0021       <span style="font-weight:bold;">PROGRAM</span> CMPLXD
0022           <span style="font-weight:bold;">IMPLICIT</span> <span style="color:#0057ae;">COMPLEX(X)</span>
0023           <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>
0024           <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>
0025               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>)
0026               <span style="font-weight:bold;">IF</span> (<span style="color:#644a9b;font-weight:bold;">AIMAG</span>(X)<span style="color:#ca60ca;font-weight:bold;">.LT.</span><span style="color:#b08000;">0</span>) <span style="font-weight:bold;">THEN</span>
0027                   <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>
0028 <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>
0029               <span style="font-weight:bold;">ELSE</span>
0030                   <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>,
0031 <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)
0032               <span style="font-weight:bold;">END IF</span>
0033               <span style="color:#644a9b;">FORMAT (</span>A, I1, A, F10.7, A, F9.7<span style="color:#644a9b;">)</span>
0034               <span style="font-weight:bold;">CONTINUE</span>
0035           <span style="font-weight:bold;">ENDDO</span>
0036           <span style="font-weight:bold;">STOP</span>
0037       <span style="font-weight:bold;">END</span>
0038 </pre></body></html>