gfortran46: Error: Type of argument 'z' in call to 'dimag' at (1) should be COMPLEX(16), not COMPLEX(8)

[Anton Shterenlikht]

These errors are from french/aster on amd64.
I think I need to rebuld lang/gcc after the
recent updates to binutils, but anyway,
which command line options to gfortran46
would lead to this error?

These routines are GNU extensions specifically for complex(8),
e.g.: http://gcc.gnu.org/onlinedocs/gcc-4.6.4/gfortran/AIMAG.html#AIMAG

Messages de compilation
=======================
/usr/ports/french/aster/work/aster-full-src-10.8.0/instdir/STA10.8/bibfor/algeline/dcargu.f:34.18:

        IF (DIMAG(C).GT.0.D0) THEN                                      
                  1
Error: Type of argument 'z' in call to 'dimag' at (1) should be COMPLEX(16), not COMPLEX(8)
/usr/ports/french/aster/work/aster-full-src-10.8.0/instdir/STA10.8/bibfor/algeline/dcargu.f:36.23:

        ELSE IF (DIMAG(C).LT.0.D0) THEN                                 
                       1
Error: Type of argument 'z' in call to 'dimag' at (1) should be COMPLEX(16), not COMPLEX(8)
/usr/ports/french/aster/work/aster-full-src-10.8.0/instdir/STA10.8/bibfor/algeline/dcargu.f:42.34:

        DCARGU = DBLE(ATAN2(DIMAG(C),DBLE(C)))                          
                                  1
Error: Type of argument 'z' in call to 'dimag' at (1) should be COMPLEX(16), not COMPLEX(8)
/usr/ports/french/aster/work/aster-full-src-10.8.0/instdir/STA10.8/bibfor/algeline/dcargu.f:44.34:

        DCARGU = DBLE(ATAN2(DIMAG(C),DBLE(C))) + PI                     
                                  1
Error: Type of argument 'z' in call to 'dimag' at (1) should be COMPLEX(16), not COMPLEX(8)

/usr/ports/french/aster/work/aster-full-src-10.8.0/instdir/STA10.8/bibfor/algeline/diaghr.f:89.45:

         IF (DBLE(SCALE).NE.0.0D0 .OR. DIMAG(SCALE).NE.0.0D0)           
                                             1
Error: Type of argument 'z' in call to 'dimag' at (1) should be COMPLEX(16), not COMPLEX(8)

/usr/ports/french/aster/work/aster-full-src-10.8.0/instdir/STA10.8/bibfor/algeline/diares.f:46.35:

         CALL ZMULT (NEVEC, DCONJG(TAU(J)), EVEC(J,1), LDEVEC)          
                                   1
Error: Type of argument 'z' in call to 'dconjg' at (1) should be COMPLEX(16), not COMPLEX(8)
/usr/ports/french/aster/work/aster-full-src-10.8.0/instdir/STA10.8/bibfor/algeline/diares.f:51.23:

         DELTA = DIMAG(A(NR,NR))*ABS(A(NR,NR-1))                        
                       1
Error: Type of argument 'z' in call to 'dimag' at (1) should be COMPLEX(16), not COMPLEX(8)