<html>#2529: Flang error in Cactus/src/util/PointerTo.F90
<table style='border-spacing: 1ex 0pt; '>
<tr><td style='text-align:right'> Reporter:</td><td>Erik Schnetter</td></tr>
<tr><td style='text-align:right'> Status:</td><td>new</td></tr>
<tr><td style='text-align:right'>Milestone:</td><td></td></tr>
<tr><td style='text-align:right'> Version:</td><td>development version</td></tr>
<tr><td style='text-align:right'> Type:</td><td>bug</td></tr>
<tr><td style='text-align:right'> Priority:</td><td>major</td></tr>
<tr><td style='text-align:right'>Component:</td><td>Cactus</td></tr>
</table>
<p>Comment (by Roland Haas):</p>
<p>Can you supply the file `configs/sim/config-data/config.log`, please?</p>
<p>The configure test there uses:</p>
<div class="codehilite"><pre><span></span> <span class="k">subroutine </span><span class="n">foo</span><span class="p">(</span><span class="n">a</span><span class="p">)</span>
<span class="k">use </span><span class="nb">iso_c_binding</span><span class="p">,</span> <span class="n">only</span><span class="p">:</span> <span class="nb">c_loc</span><span class="p">,</span><span class="kt">c_intptr_t</span>
<span class="kt"> </span><span class="k">implicit none</span>
<span class="k"> type</span><span class="p">(</span><span class="o">*</span><span class="p">),</span><span class="k">dimension</span><span class="p">(..),</span><span class="k">target</span> <span class="kd">::</span> <span class="n">a</span>
<span class="kt">integer</span><span class="p">(</span><span class="nb">kind</span><span class="o">=</span><span class="nb">kind</span><span class="p">(</span><span class="kt">c_intptr_t</span><span class="p">))</span> <span class="kd">::</span> <span class="n">b</span>
<span class="n">b</span> <span class="o">=</span> <span class="nb">transfer</span><span class="p">(</span><span class="nb">c_loc</span><span class="p">(</span><span class="n">a</span><span class="p">),</span> <span class="n">b</span><span class="p">)</span>
<span class="k">end subroutine</span>
<span class="k"> program </span><span class="n">main</span>
<span class="k">end</span>
</pre></div>
<p>which is (almost other than the <code>c_intptr_t</code>) the same code as inf <code>PointerTo.F90</code>:</p>
<div class="codehilite"><pre><span></span><span class="n">CCTK_POINTER</span> <span class="k">function </span><span class="n">CCTK_PointerTo</span><span class="p">(</span><span class="n">var</span><span class="p">)</span>
<span class="k">use </span><span class="nb">iso_c_binding</span><span class="p">,</span> <span class="n">only</span><span class="p">:</span> <span class="nb
<p>--<br/>
Ticket URL: <a href='https://bitbucket.org/einsteintoolkit/tickets/issues/2529/flang-error-in-cactus-src-util'>https://bitbucket.org/einsteintoolkit/tickets/issues/2529/flang-error-in-cactus-src-util</a></p>
</html>