This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: A patch to fix the most obvious failures with -fwhole-file (take 2)
- From: Steve Kargl <sgk at troutmask dot apl dot washington dot edu>
- To: Dominique Dhumieres <dominiq at lps dot ens dot fr>
- Cc: fortran at gcc dot gnu dot org
- Date: Mon, 14 Dec 2009 09:49:02 -0800
- Subject: Re: A patch to fix the most obvious failures with -fwhole-file (take 2)
- References: <20091214165230.D82803BE85@mailhost.lps.ens.fr>
On Mon, Dec 14, 2009 at 05:52:30PM +0100, Dominique Dhumieres wrote:
> > > + call gee_i(int(i**(-huge(0_8)-1_8),kind=kind(i)))
> >
> > This is simply code obfuscation with no merit. ...
>
> Had you run the test yourself, you'ld have seen
>
> Warning: Type mismatch in argument 'i' at (1); passed INTEGER(8) to INTEGER(4)
>
> In
>
> subroutine gee_i(i)
> integer :: i
> end subroutine gee_i
>
> gee_i expects an integer, i**(-huge(0_8)-1_8) is integer(8) even if i is
> integer, unless the promotion of i to integer(8) to compute the power
> is a gfortran bug.
>
I've already quoted the Fortran 2003 Standard.
--
Steve