title: gfortran Error: Function 'inint' at (1) has no IMPLICIT type
body: <p>I am using <code>gfortran</code> (from gcc-4.8.1) to compile a <code>.f90</code> source file, and encountered an error that says:</p>
  
  <pre><code>Error: Function 'inint' at (1) has no IMPLICIT type
  </code></pre>
  
  <p>I did a bit of search and found that a <a href="https://gcc.gnu.org/onlinedocs/gcc-3.4.6/g77/INInt-Intrinsic.html" rel="nofollow noreferrer">GNU website</a> says [<code>ININT</code>]</p>
  
  <blockquote>
    <p>This intrinsic is not yet implemented. The name is, however, reserved
    as an intrinsic.</p>
  </blockquote>
  
  <p>In a <a href="http://techpubs.sgi.com/library/tpl/cgi-bin/getdoc.cgi?coll=0650&amp;db=man&amp;raw=1&amp;fname=/usr/share/catman/p_man/cat3/ftn/round.z" rel="nofollow noreferrer">SGI documentation</a>, it is said</p>
  
  <blockquote>
    <p>ININT returns the nearest INTEGER*2 to its REAL*4 argument.</p>
  </blockquote>
  
  <p>My questions are:</p>
  
  <p>Is <code>ININT</code> a Fortran77/90/95/2003 standard function?</p>
  
  <p>In <code>gfortran</code>, what's the proper/standard-compliant way of writing a replacement function for <code>INIT</code>?</p>