From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 125478 invoked by alias); 25 May 2019 17:31:43 -0000 Mailing-List: contact gcc-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-owner@gcc.gnu.org Received: (qmail 125461 invoked by uid 89); 25 May 2019 17:31:42 -0000 Authentication-Results: sourceware.org; auth=none X-Spam-SWARE-Status: No, score=-7.6 required=5.0 tests=BAYES_00,GIT_PATCH_2,RCVD_IN_DNSWL_LOW,SPF_PASS autolearn=ham version=3.3.1 spammy=H*f:sk:7a60f1f, H*i:sk:7a60f1f, H*MI:sk:7a60f1f, person X-HELO: cc-smtpout1.netcologne.de Received: from cc-smtpout1.netcologne.de (HELO cc-smtpout1.netcologne.de) (89.1.8.211) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Sat, 25 May 2019 17:31:41 +0000 Received: from cc-smtpin3.netcologne.de (cc-smtpin3.netcologne.de [89.1.8.203]) by cc-smtpout1.netcologne.de (Postfix) with ESMTP id 1C65E130D6; Sat, 25 May 2019 19:31:38 +0200 (CEST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=netcologne.de; s=nc1116a; t=1558805498; bh=33Tz8BeGIiJds8BeTkpx09am4qiJkHdr+pnloxTM87E=; h=Subject:To:Cc:References:From:Message-ID:Date:In-Reply-To:From; b=FEy/7oBqIuGb3ZwHNEb/4FQYQ3rKncNwPwXmzV6+iFjzuT4LMUoTZXSZTviv3Hw0t 6hVpU8RmdaPxklpSXfn4ARp4J6za8J3PDL0NOUnbaA5O8V7/nWgCGXgmOA4pm10SnR xizWCR8bxIZEjI7AT3aMBumGjIcf3ooOogmS4APOdsCfxEdsRvY0JLZGJ/IvbQ1gZd LjySO35eO8jObWggbVzg+8bHPiLrYWSes9AOhQ8QyxUFp8mjwQrAD/ShN90ly1QLlF Ciww32wrC6wUdunKJGDTB4rDV5+V6gZrZM+fXlxA+0GzjiSW7kzWUcXW+zsDy8oc0g JI5uu1nx/Pv6g== Received: from localhost (localhost [127.0.0.1]) by cc-smtpin3.netcologne.de (Postfix) with ESMTP id 152BE11EE1; Sat, 25 May 2019 19:31:38 +0200 (CEST) Received: from [2001:4dd7:1a25:0:7285:c2ff:fe6c:992d] (helo=cc-smtpin3.netcologne.de) by localhost with ESMTP (eXpurgate 4.6.0) (envelope-from ) id 5ce97bf9-0155-7f0000012729-7f000001cdd0-1 for ; Sat, 25 May 2019 19:31:37 +0200 Received: from [IPv6:2001:4dd7:1a25:0:7285:c2ff:fe6c:992d] (2001-4dd7-1a25-0-7285-c2ff-fe6c-992d.ipv6dyn.netcologne.de [IPv6:2001:4dd7:1a25:0:7285:c2ff:fe6c:992d]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by cc-smtpin3.netcologne.de (Postfix) with ESMTPSA; Sat, 25 May 2019 19:31:24 +0200 (CEST) Subject: Re: Bug in closed-source, proprietary software that I do not have access to To: Toon Moene , sgk@troutmask.apl.washington.edu Cc: "fortran@gcc.gnu.org" , gcc mailing list References: <813c3cf9-265c-b689-5130-ef7f15e11632@netcologne.de> <20190525170135.GA54621@troutmask.apl.washington.edu> <7a60f1f7-a682-ff97-ad15-0eca763646fc@moene.org> From: Thomas Koenig Message-ID: <1332af12-1488-9ac1-c0d2-c655277f67df@netcologne.de> Date: Sat, 25 May 2019 17:31:00 -0000 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:60.0) Gecko/20100101 Thunderbird/60.6.1 MIME-Version: 1.0 In-Reply-To: <7a60f1f7-a682-ff97-ad15-0eca763646fc@moene.org> Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 7bit X-SW-Source: 2019-05/txt/msg00226.txt.bz2 Hi Toon, > On 5/25/19 7:01 PM, Steve Kargl wrote: > >> For WRF, I suppose you or Martin could be a good citizen and >> contact the project to report a bug. > > I have thought about this. As a person with experience building and > running weather forecasting codes, I would be first in line to try this. > But the SPEC code could be modified and not resemble a fresh WRF setup ... The current version of netcdf has, in module_netcdf_nf_interfaces.F90, !--------------------------------- nf_put_vara_double ---------------------- Interface Function nf_put_vara_double(ncid, varid, start, counts, dvals) & RESULT(status) USE netcdf_nf_data, ONLY: RK8 Integer, Intent(IN) :: ncid, varid Integer, Intent(IN) :: start(*), counts(*) Real(RK8), Intent(IN) :: dvals(*) Integer :: status End Function nf_put_vara_double End Interface which looks good (well, it's not BIND(C)). In another file, it has it as a simple INTEGER declaration with EXTERNAL. I don't know which of the two is actually used.