1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
<!-- Generator: GNU source-highlight
by Lorenzo Bettini
http://www.lorenzobettini.it
http://www.gnu.org/software/src-highlite -->
<pre><tt>doc <font color="#990000">=></font> <b><font color="#000000">parseFile</font></b><font color="#990000">(</font><font color="#FF0000">"output.xml"</font><font color="#990000">,</font> <b><font color="#0000FF">iostat</font></b><font color="#990000">=</font>i<font color="#990000">)</font>
<b><font color="#0000FF">if</font></b> <font color="#990000">(</font>i<font color="#990000">/=</font><font color="#993399">0</font><font color="#990000">)</font> <b><font color="#0000FF">then</font></b>
<b><font color="#0000FF">print</font></b><font color="#990000">*,</font> <font color="#FF0000">"Could not open XML file"</font>
<i><font color="#9A1900">! call goAndDoSomethingElseInstead()</font></i>
<b><font color="#0000FF">print</font></b><font color="#990000">*,</font> <font color="#FF0000">"A string with \"" escaped chars"</font>
<b><font color="#0000FF">endif</font></b>
c <font color="#990000">=</font> <font color="#993399">1</font>
<font color="#009900">double</font> <font color="#009900">precision</font> x
x <font color="#990000">=</font> <font color="#993399">1.234e5</font> <i><font color="#9A1900">! single</font></i>
x <font color="#990000">=</font> <font color="#993399">1.234d5</font> <i><font color="#9A1900">! double</font></i>
x <font color="#990000">=</font> <font color="#993399">1.234q5</font> <i><font color="#9A1900">! quad</font></i>
x <font color="#990000">=</font> <font color="#993399">b'1001010'</font> <i><font color="#9A1900">! binary</font></i>
x <font color="#990000">=</font> <font color="#993399">o'1271530'</font> <i><font color="#9A1900">! octal</font></i>
x <font color="#990000">=</font> <font color="#993399">z'235A7F0'</font> <i><font color="#9A1900">! hex (no idea why it's z and not x)</font></i>
<i><font color="#9A1900">! 15 significant digits and range of (1e-307, 1e307)</font></i>
<font color="#009900">integer</font><font color="#990000">,</font> <b><font color="#0000FF">parameter</font></b> <font color="#990000">::</font> wp <font color="#990000">=</font> <b><font color="#000000">selected_real_kind</font></b><font color="#990000">(</font><font color="#993399">15</font><font color="#990000">,</font> <font color="#993399">307</font><font color="#990000">)</font>
<font color="#009900">real</font><font color="#990000">(</font>wp<font color="#990000">)</font> <font color="#990000">::</font> x <font color="#990000">=</font> <font color="#993399">1.234e5_wp</font> <i><font color="#9A1900">! working precision</font></i>
</tt></pre>
|
