<p dir="auto">I'm reporting here since f2py is part of numpy, but this is ONLY f2py-related!</p>
<p dir="auto">As reported in <a class="issue-link js-issue-link" data-error-text="Failed to load title" data-id="476293623" data-permission-text="Title is private" data-url="https://github.com/GeoscienceAustralia/hiperseis/issues/121" data-hovercard-type="issue" data-hovercard-url="/GeoscienceAustralia/hiperseis/issues/121/hovercard" href="https://github.com/GeoscienceAustralia/hiperseis/issues/121">GeoscienceAustralia/hiperseis#121</a> f2py fails on<br>
<a href="https://github.com/GeoscienceAustralia/ellip-corr/blob/master/ellip/ellipcorr.f">https://github.com/GeoscienceAustralia/ellip-corr/blob/master/ellip/ellipcorr.f</a></p>
<div class="snippet-clipboard-content notranslate position-relative overflow-auto" data-snippet-clipboard-copy-content="Reading fortran codes...
	Reading file 'ellip-corr/ellip/ellipcorr.f' (format:fix,strict)
Post-processing...
	Block: ellipcorr
			Block: ellipticity_corr
{}
In: :ellipcorr:ellip-corr/ellip/ellipcorr.f:phase_alias
vars2fortran: No typespec for argument &quot;delta&quot;.
{}
In: :ellipcorr:ellip-corr/ellip/ellipcorr.f:phase_alias
vars2fortran: No typespec for argument &quot;ip&quot;.
			Block: phase_alias
			Block: lnblk
Post-processing (stage 2)...
Building modules...
	Building module &quot;ellipcorr&quot;...
		Constructing wrapper function &quot;ellipticity_corr&quot;...
		  tcor = ellipticity_corr(phase,edist,edepth,ecolat,azim)
		Constructing wrapper function &quot;phase_alias&quot;...
		  phase_alias(phase,delta,ip)
		Creating wrapper for Fortran function &quot;lnblk&quot;(&quot;lnblk&quot;)...
		Constructing wrapper function &quot;lnblk&quot;...
		  lnblk = lnblk(s)
[..]
analyzevars: character array &quot;character*8 phcod(57)&quot; is considered as &quot;character phcod(57,8)&quot;; &quot;intent(c)&quot; is forced."><pre class="notranslate"><code class="notranslate">Reading fortran codes...
	Reading file 'ellip-corr/ellip/ellipcorr.f' (format:fix,strict)
Post-processing...
	Block: ellipcorr
			Block: ellipticity_corr
{}
In: :ellipcorr:ellip-corr/ellip/ellipcorr.f:phase_alias
vars2fortran: No typespec for argument "delta".
{}
In: :ellipcorr:ellip-corr/ellip/ellipcorr.f:phase_alias
vars2fortran: No typespec for argument "ip".
			Block: phase_alias
			Block: lnblk
Post-processing (stage 2)...
Building modules...
	Building module "ellipcorr"...
		Constructing wrapper function "ellipticity_corr"...
		  tcor = ellipticity_corr(phase,edist,edepth,ecolat,azim)
		Constructing wrapper function "phase_alias"...
		  phase_alias(phase,delta,ip)
		Creating wrapper for Fortran function "lnblk"("lnblk")...
		Constructing wrapper function "lnblk"...
		  lnblk = lnblk(s)
[..]
analyzevars: character array "character*8 phcod(57)" is considered as "character phcod(57,8)"; "intent(c)" is forced.
</code></pre></div>
<p dir="auto">I would glad about any hint why this error occurs.</p>
<p dir="auto">in current devel version when a character variable is defined using the asterisk form</p>
<div class="snippet-clipboard-content notranslate position-relative overflow-auto" data-snippet-clipboard-copy-content="character*8  name"><pre class="notranslate"><code class="notranslate">character*8  name
</code></pre></div>
<p dir="auto">and I then use</p>
<div class="snippet-clipboard-content notranslate position-relative overflow-auto" data-snippet-clipboard-copy-content="common name(12)"><pre class="notranslate"><code class="notranslate">common name(12)
</code></pre></div>
<p dir="auto">I get an error message from f2py  like</p>
<div class="snippet-clipboard-content notranslate position-relative overflow-auto" data-snippet-clipboard-copy-content="analyzevars: character array &quot;character*8 name(12)&quot; is considered as &quot;character name(12,8)&quot;; &quot;intent(c)&quot; is forced."><pre class="notranslate"><code class="notranslate">analyzevars: character array "character*8 name(12)" is considered as "character name(12,8)"; "intent(c)" is forced.
</code></pre></div>
<p dir="auto">if the first definition is changed to</p>
<div class="snippet-clipboard-content notranslate position-relative overflow-auto" data-snippet-clipboard-copy-content="character(8)"><pre class="notranslate"><code class="notranslate">character(8)
</code></pre></div>
<p dir="auto">then the error goes away.</p>
<p dir="auto">The old behaviour that is consistent with FORTRAN should be restored.<br>
Any suggestion on bug fix?</p>