From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 1457 invoked by alias); 30 May 2018 12:56:57 -0000 Mailing-List: contact fortran-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Post: List-Help: , Sender: fortran-owner@gcc.gnu.org Received: (qmail 1413 invoked by uid 89); 30 May 2018 12:56:56 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: =?ISO-8859-1?Q?No, score=-1.6 required=5.0 tests=BAYES_00,FREEMAIL_ENVFROM_END_DIGIT,FREEMAIL_FROM,HTML_MESSAGE,RCVD_IN_DNSWL_NONE,SPF_PASS autolearn=no version=3.3.2 spammy=inconvenience, HTo:D*fr, H*r:sk:v131-v6, Don=e2?= X-HELO: mail-wm0-f42.google.com Received: from mail-wm0-f42.google.com (HELO mail-wm0-f42.google.com) (74.125.82.42) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Wed, 30 May 2018 12:56:54 +0000 Received: by mail-wm0-f42.google.com with SMTP id v131-v6so28289044wma.1 for ; Wed, 30 May 2018 05:56:53 -0700 (PDT) X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:in-reply-to:references:from:date :message-id:subject:to:cc; bh=vqqj9uvKTZ7RysMLmQ9zx2I1GNU4VITTsM/MjZ7lYgI=; b=l08W7X3UkDPAFFABr/bY1dsEHIGi6Rp8Rnv8W9qiJAn4zchjnbrRxD4SkD8Serm3Lx mofgewe5WaA69steCZ6Kz3pq2oaS68V3xGOEsT8Iwkj8H2ysS7RlZoUJ4XzLA1SXgyAQ WvmWhQy2k6TrOQGeJUzufbuhvEduB2m4lJkYnbZNPYXtm1GIWt9MDoDkUbNZqcNfoHbM 2KkgNSuQ3cHKqaDAg9qtaVOWb9aChQAQjk8B5xx6jS6qi9xrq8si41eSxfrfGUuA6JOX ag6xOC6YWtD/mQIkuA12Terc5AbsDK75nS9FOShsTNR5Sqk5hfoPeWTkUwjd0gDP4SzD +LqA== X-Gm-Message-State: ALKqPwf3RKJjPO1fZTNQ/yeRGYedj0c5Kjqbk10K5EO/MIZOUWLMYikH waboFyAfnitoZ/dyqEzL/JdRQvp/LtJDA52PM3s= X-Google-Smtp-Source: ADUXVKKd1fvBHLLIaUK4btQtPANSvv5rprE3nV5ElpGPsb041d8kg1cgOgYIAEfBWFUnAKtewvfj3qwLIFLfCDHJUjQ= X-Received: by 2002:a1c:87d4:: with SMTP id j203-v6mr1367410wmd.119.1527685011662; Wed, 30 May 2018 05:56:51 -0700 (PDT) MIME-Version: 1.0 Received: by 2002:adf:e34d:0:0:0:0:0 with HTTP; Wed, 30 May 2018 05:56:51 -0700 (PDT) In-Reply-To: References: From: nachiket k Date: Wed, 30 May 2018 12:56:00 -0000 Message-ID: Subject: Re: -assume noold_ldout_format for GNU To: =?UTF-8?Q?Dominique_d=27Humi=C3=A8res?= Cc: gfortran Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable X-SW-Source: 2018-05/txt/msg00131.txt.bz2 Hi, without -fdefault-real-8 we get following errors cpgb.f:446:72: & IB1I,L1I,F1I,G1I,IRET) 1 Error: Type mismatch in argument =E2=80=98f1=E2=80=99 at (1); passed REAL(8= ) to REAL(4) cpgb.f:482:72: & KB,IBB,LR,FR,GR,d,KGDTI,MI,IBBI,LBI,FBI,GBI,IRET) 1 Error: Type mismatch in argument =E2=80=98ngdt1=E2=80=99 at (1); passed REA= L(4) to INTEGER(4) cpgb.f:600:72: & IBBI,LBI,FBI,GBI,IRET) 1 Error: Type mismatch in argument =E2=80=98f1=E2=80=99 at (1); passed REAL(8= ) to REAL(4) cpgb.f:655:8: GFLD1%FLD =3D> F1I 1 Error: Different types in pointer assignment at (1); attempted assignment of REAL(4) to REAL(8) cpgb.f:662:10: GFLD1%FLD =3D> G1I 1 Error: Different types in pointer assignment at (1); attempted assignment of REAL(4) to REAL(8) cpgb.f:692:31: IF (ASSOCIATED(GFLD1%FLD,G1I)) then 1 Error: =E2=80=98target=E2=80=99 argument of =E2=80=98associated=E2=80=99 in= trinsic at (1) must be the same type and kind as =E2=80=98pointer=E2=80=99 This is the path to the source code of file I am trying to install www.nco.ncep.noaa.gov/pmb/codes/nwprod/grib_util.v1.0.5/sorc/copygb2.fd/cop= ygb2.f This is the parent directory www.nco.ncep.noaa.gov/pmb/codes/nwprod/grib_util.v1.0.5/sorc/copygb2.fd/ As there is dependency on many other libraries I am not sure how to create a reduced code for this issue. (PS without using -fdefault-real-8 even the dependency library g2 is not getting installed which has -r8 -i4 also had to uses -fno-range-check) without -fno-range-check I get gfortran -c -O3 -g -fdefault-real-8 -J../include/g2_v3.1.0_d addfield.f addfield.f:122:14: allones=3DZ'FFFFFFFF' 1 Error: Arithmetic overflow converting INTEGER(16) to INTEGER(4) at (1). This check can be disabled with the option =E2=80=98-fno-range-check=E2=80= =99 make: *** [../libg2_v3.1.0_d.a(addfield.o)] Error 1 Source of g2 library is http://www.nco.ncep.noaa.gov/pmb/codes/nwprod/lib/g2/v3.1.0/ Sorry for inconvenience Thanks and Regards, Nachiket On Wed, May 30, 2018 at 5:52 PM, Dominique d'Humi=C3=A8res wrote: > > gfortran -c -I../lib/g2_d/ -O -C -fdefault-real-8 -J../copygb2.fd/final= /1 > > cpgb.f > > > > cpgb.f:482:72: > > > > & KB,IBB,LR,FR,GR,d,KGDTI,MI,IBBI,LBI,FBI,GBI,IRET) > > > > Error: Type mismatch in argument =E2=80=98ngdt1=E2=80=99 at (1); passed= REAL(8) to > > INTEGER(4) > (1) Don=E2=80=99t use -f*-real-8. > (2) Apparently =E2=80=98ngdt1=E2=80=99 is a REAL on the caller side and a= n INTEGER on the > collee one. > > Without a (reduced) code it is extremely difficult to help you. > > Dominique > >