From owner-freebsd-fortran@FreeBSD.ORG Wed Jul 10 23:15:55 2013 Return-Path: Delivered-To: fortran@freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2001:1900:2254:206a::19:1]) by hub.freebsd.org (Postfix) with ESMTP id 0C80394F for ; Wed, 10 Jul 2013 23:15:55 +0000 (UTC) (envelope-from mexas@bristol.ac.uk) Received: from eu1sys200aog114.obsmtp.com (eu1sys200aog114.obsmtp.com [207.126.144.137]) by mx1.freebsd.org (Postfix) with ESMTP id 621BE10EA for ; Wed, 10 Jul 2013 23:15:53 +0000 (UTC) Received: from mail-ea0-f180.google.com ([209.85.215.180]) (using TLSv1) by eu1sys200aob114.postini.com ([207.126.147.11]) with SMTP ID DSNKUd3rFBmdz2dGRZv08hLxTzuZFuZ5cn/c@postini.com; Wed, 10 Jul 2013 23:15:54 UTC Received: by mail-ea0-f180.google.com with SMTP id k10so5382726eaj.11 for ; Wed, 10 Jul 2013 16:15:32 -0700 (PDT) X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=google.com; s=20120113; h=sender:date:from:message-id:to:subject:reply-to:x-gm-message-state; bh=fFmSr+86bQmLUousP55vbCvEFuBbVLArpGEUoEoxMOQ=; b=iXrgbmbDwI+uqsRFIbBXl3MVGlPjNbIF3A21uPwq0hDTTtppLg4C7duwo8dHVxIHwW dKHjkh48tTkcxKjQ8YD1iJD0FYOR5cAJ+yHYHiJ5U8/V8mJxzybp2dPvIlbKZWIf1FJv ROsXtVSmxg8nJa4SFpEYxuoYK0YTTKS63wLnZ/1CEumabFnNXHM5l2vkBtxdv6nSoDYX /IEDjxLrgBxHw/on71/7kCJLQ1qNzDjq/K4KxcaiQTdoZq2lSPE7aYZk+TpbJDnSifBo KDSstC+XV6oGZXp+vHb4Y+qjZ/WBjIjy4SDjgx7xxDfxGKqdlQDCyPokoiCZDq7s8ZgL v3DA== X-Received: by 10.15.95.4 with SMTP id bc4mr38083282eeb.40.1373498132790; Wed, 10 Jul 2013 16:15:32 -0700 (PDT) X-Received: by 10.15.95.4 with SMTP id bc4mr38083275eeb.40.1373498132688; Wed, 10 Jul 2013 16:15:32 -0700 (PDT) Received: from mech-cluster241.men.bris.ac.uk (mech-cluster241.men.bris.ac.uk. [137.222.187.241]) by mx.google.com with ESMTPSA id a4sm64114633eez.0.2013.07.10.16.15.30 for (version=TLSv1.2 cipher=ECDHE-RSA-RC4-SHA bits=128/128); Wed, 10 Jul 2013 16:15:31 -0700 (PDT) Sender: Anton Shterenlikht Received: from mech-cluster241.men.bris.ac.uk (localhost [127.0.0.1]) by mech-cluster241.men.bris.ac.uk (8.14.7/8.14.6) with ESMTP id r6ANFSpB014116 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-GCM-SHA384 bits=256 verify=NO) for ; Thu, 11 Jul 2013 00:15:29 +0100 (BST) (envelope-from mexas@mech-cluster241.men.bris.ac.uk) Received: (from mexas@localhost) by mech-cluster241.men.bris.ac.uk (8.14.7/8.14.6/Submit) id r6ANFSwG014115 for fortran@freebsd.org; Thu, 11 Jul 2013 00:15:28 +0100 (BST) (envelope-from mexas) Date: Thu, 11 Jul 2013 00:15:28 +0100 (BST) From: Anton Shterenlikht Message-Id: <201307102315.r6ANFSwG014115@mech-cluster241.men.bris.ac.uk> To: fortran@freebsd.org Subject: gfortran46: Error: Type of argument 'z' in call to 'dimag' at (1) should be COMPLEX(16), not COMPLEX(8) X-Gm-Message-State: ALoCoQmWm2NeLkLMnsBQP5N/jENk/DOShebg4TmaiCbCdGMtlhBULc4KMRpxHhZ0IdRRYHqOqFXGHmteF7yFJpf8intfhJEL4h/A5iI/ueEHLvAKHoT8YImQcpobg4GitQXN/Ry0yOemJVhj7CVYx42eL+fjb0WNmw== X-BeenThere: freebsd-fortran@freebsd.org X-Mailman-Version: 2.1.14 Precedence: list Reply-To: mexas@bristol.ac.uk List-Id: Fortran on FreeBSD List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 10 Jul 2013 23:15:55 -0000 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)