<br><font size=2 face="sans-serif">I know the selectors in ASSOCIATE or
SELECT TYPE are meant to be used as data object. &nbsp;But where in the
standard it says it can not be a procedure? &nbsp;The example</font>
<br>
<br>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; interface</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; subroutine
foo</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; end subroutine</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; end interface</font>
<br>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; interface</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; function
func (i)</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
import foo</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
procedure(foo), pointer :: func</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; end function</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; end interface</font>
<br>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; associate (x =&gt; func(10))</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; call x</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; end associate</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; end</font>
<br>
<br>
<br><font size=2 face="sans-serif">Should we explicitly disallow this?</font>
<br>
<br>
<br><font size=2 face="sans-serif">Jim Xia<br>
<br>
XL Fortran Compiler Test<br>
IBM Toronto Lab at 8200 Warden Ave, Markham, On, L6G 1C7<br>
Phone (905) 413-3444 &nbsp;Tie-line 313-3444<br>
email: jimxia@ca.ibm.com<br>
D2/YF7/8200 /MKM<br>
<br>
</font><a href=http://www.ibm.com/software/awdtools/fortran/xlfortran><font size=2 face="sans-serif">http://www.ibm.com/software/awdtools/fortran/xlfortran</font></a>