From owner-freebsd-fortran@FreeBSD.ORG  Wed Jul 10 23:27:46 2013
Return-Path: <owner-freebsd-fortran@FreeBSD.ORG>
Delivered-To: fortran@freebsd.org
Received: from mx1.freebsd.org (mx1.freebsd.org [8.8.178.115])
 by hub.freebsd.org (Postfix) with ESMTP id 11E029DA
 for <fortran@freebsd.org>; Wed, 10 Jul 2013 23:27:46 +0000 (UTC)
 (envelope-from sgk@troutmask.apl.washington.edu)
Received: from troutmask.apl.washington.edu (troutmask.apl.washington.edu
 [128.95.76.21]) by mx1.freebsd.org (Postfix) with ESMTP id D0B541133
 for <fortran@freebsd.org>; Wed, 10 Jul 2013 23:27:45 +0000 (UTC)
Received: from troutmask.apl.washington.edu (localhost.apl.washington.edu
 [127.0.0.1])
 by troutmask.apl.washington.edu (8.14.6/8.14.6) with ESMTP id r6ANRfmY061979; 
 Wed, 10 Jul 2013 16:27:41 -0700 (PDT)
 (envelope-from sgk@troutmask.apl.washington.edu)
Received: (from sgk@localhost)
 by troutmask.apl.washington.edu (8.14.6/8.14.6/Submit) id r6ANRfOX061978;
 Wed, 10 Jul 2013 16:27:41 -0700 (PDT) (envelope-from sgk)
Date: Wed, 10 Jul 2013 16:27:41 -0700
From: Steve Kargl <sgk@troutmask.apl.washington.edu>
To: mexas@bristol.ac.uk
Subject: Re: gfortran46: Error: Type of argument 'z' in call to 'dimag' at
 (1) should be COMPLEX(16), not COMPLEX(8)
Message-ID: <20130710232741.GA61961@troutmask.apl.washington.edu>
References: <201307102315.r6ANFSwG014115@mech-cluster241.men.bris.ac.uk>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
In-Reply-To: <201307102315.r6ANFSwG014115@mech-cluster241.men.bris.ac.uk>
User-Agent: Mutt/1.5.21 (2010-09-15)
Cc: fortran@freebsd.org
X-BeenThere: freebsd-fortran@freebsd.org
X-Mailman-Version: 2.1.14
Precedence: list
List-Id: Fortran on FreeBSD <freebsd-fortran.freebsd.org>
List-Unsubscribe: <https://lists.freebsd.org/mailman/options/freebsd-fortran>, 
 <mailto:freebsd-fortran-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-fortran>
List-Post: <mailto:freebsd-fortran@freebsd.org>
List-Help: <mailto:freebsd-fortran-request@freebsd.org?subject=help>
List-Subscribe: <https://lists.freebsd.org/mailman/listinfo/freebsd-fortran>, 
 <mailto:freebsd-fortran-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Wed, 10 Jul 2013 23:27:46 -0000

On Thu, Jul 11, 2013 at 12:15:28AM +0100, Anton Shterenlikht wrote:
> 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)

Need to see the declaration for C.  My guess is that it is declared
as 'complex c' or 'complex*8 c'.  In either case, this is the single
precision complex type.  The program is using the specific intrinsic
function dimag, which expects a double precision complex argument. 

The correct fixes are to properly declare the variables via Fortran's
kind type parameter and to use generic intrinsic functions.

-- 
Steve