dabs - strange error

From: Michael <proximum@xxxxxxx>
Date: Tue, 01 May 2012 19:21:31 +0700

Hello,

Strange error occurs in gfortran/gcc version 4.6.3 (Ubuntu/Linaro 4.6.3-1ubuntu5).

real(8)::fminx,fminy,fmaxx,fmaxy,xrange,yrange
....
if((dabs(fminy)<1D-2 .and. dabs(fmaxy)<1D-2) .or. &
(dabs(fminy)>1D3 .or. dabs(fmaxy)>1D3)) then
....

$ gfortran -c -fdefault-real-8 polus.f90
polus.f90:402.27:

(dabs(fminy)>1D3 .or. dabs(fmaxy)>1D3)) then
1
ошибка: 'a' argument of 'dabs' intrinsic at (1) must be double precision

This works:

if ( (dabs(dble(fminy))<1D-2 .and. dabs(dble(fmaxy))<1D-2) .or. (dabs(dble(fminy)) >1D3 .or. dabs(dble(fmaxy)) >1D3) ) then
....

In gcc version 4.4.5 (Debian 4.4.5-8) compilation was without problems.
.

Follow-Ups:
- Re: dabs - strange error
  - From: robin . vowels
- Re: dabs - strange error
  - From: Ian Bush
- Re: dabs - strange error
  - From: dpb

Prev by Date: Re: equivalence between real and complex arithmetic (previously Re: Why FORTRAN)
Next by Date: Re: dabs - strange error
Previous by thread: Re: equivalence between real and complex arithmetic (previously Re: Why FORTRAN)
Next by thread: Re: dabs - strange error
Index(es):
- Date
- Thread

Relevant Pages

Re: dabs - strange error
... On 5/1/2012 7:21 AM, Michael wrote: ... Strange error occurs in gfortran/gcc version 4.6.3 (Ubuntu/Linaro ...
(comp.lang.fortran)
Re: dabs - strange error
... Strange error occurs in gfortran/gcc version 4.6.3 (Ubuntu/Linaro ... You need to use ABS. ...
(comp.lang.fortran)