From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from troutmask.apl.washington.edu (troutmask.apl.washington.edu [128.95.76.21]) by sourceware.org (Postfix) with ESMTPS id B280C3858C32; Wed, 28 Feb 2024 00:55:56 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org B280C3858C32 Authentication-Results: sourceware.org; dmarc=none (p=none dis=none) header.from=troutmask.apl.washington.edu Authentication-Results: sourceware.org; spf=none smtp.mailfrom=troutmask.apl.washington.edu ARC-Filter: OpenARC Filter v1.0.0 sourceware.org B280C3858C32 Authentication-Results: server2.sourceware.org; arc=none smtp.remote-ip=128.95.76.21 ARC-Seal: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1709081758; cv=none; b=kgUSOnWhy/odeKNEmPZjjD6WtbHO4w1Onznt/L/P0s7R7DOpcWvk3X52YLZ2PFEZNj0xhJR1XWFpBVVVyCpBlJTXdk/XIvFbh4PEsgB3NYj4cKZvRb4GdNN0KVPyucc2pru6mHCl2HT5Cq+bs8Q2xC7baPokO6qnY7miK+UU08c= ARC-Message-Signature: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1709081758; c=relaxed/simple; bh=NHoaLBrFHgS7PRjNSzI02dW5Lbe2yEmP44vi5NHKd0A=; h=DKIM-Signature:Date:From:To:Subject:Message-ID:MIME-Version; b=EXR9XZWv3FvMWzjStOw4v2Yphnuh1HKoXBJ0EVNL3oUs2pYVVpCYEm1ibwQ0lIE0pTyb8n7t3cAf/UkaHLBbOGOuHtLyfplT3572YhRuxFGIMl1kpY+W9NgMfgRP6tD3KF9ByPcTGuzNGBaVPMMSDt3DEM8Fv7OSVV13SSTfBhk= ARC-Authentication-Results: i=1; server2.sourceware.org Received: from troutmask.apl.washington.edu (localhost [127.0.0.1]) by troutmask.apl.washington.edu (8.17.1/8.17.1) with ESMTP id 41S0ttO4010558; Tue, 27 Feb 2024 16:55:55 -0800 (PST) (envelope-from sgk@troutmask.apl.washington.edu) DKIM-Filter: OpenDKIM Filter v2.10.3 troutmask.apl.washington.edu 41S0ttO4010558 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=troutmask.apl.washington.edu; s=troutmask; t=1709081755; bh=NHoaLBrFHgS7PRjNSzI02dW5Lbe2yEmP44vi5NHKd0A=; h=Date:From:To:Subject:Reply-To:From; b=i+bExF+v9Et1Lj8i1bfrT1lDydIKL/axT1Yq8it772Ad6oEHAxqu1o5aOBmAgWJDa gZOaJz/bLeftBqU/wme2Ii1NlB3vOqWD7OANjWDLWMkp93+GM68jUUeHmCBXHUFopU 27M9cp3V41NG5WzecrLnq+DTB1wwdE7HXtEkPkTEmiLm9/11kp5krGOz/e4HDuun3K LLACqXqMA3ehbqS/1qWj5a8g39ZjQa87t/cWZLj3azHbw0AvfPQ2dcDwUEHolO5sGW tE+KC8N7/Ed9iPWHJDoZJGk5kS1Ix3954kohUetg87xzChKSOQnVyITr7mAl0tltCD BMX5e9w8Y/oqg== Received: (from sgk@localhost) by troutmask.apl.washington.edu (8.17.1/8.17.1/Submit) id 41S0ttvT010557; Tue, 27 Feb 2024 16:55:55 -0800 (PST) (envelope-from sgk) Date: Tue, 27 Feb 2024 16:55:55 -0800 From: Steve Kargl To: fortran@gcc.gnu.org, gcc-patches@gcc.gnu.org Subject: Rejects ASSOCIATE and a complex part%ref when target is a function Message-ID: Reply-To: sgk@troutmask.apl.washington.edu MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline X-Spam-Status: No, score=-0.9 required=5.0 tests=BAYES_00,DKIM_INVALID,DKIM_SIGNED,KAM_DMARC_STATUS,KAM_SHORT,SPF_HELO_NONE,SPF_NONE,TXREP,T_SCC_BODY_TEXT_LINE autolearn=no autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org List-Id: All, Consider, ! { dg-do run } program foo implicit none real y associate (x => log(cmplx(-1,0))) y = x%im if (int(100*y)-314 /= 0) stop 1 end associate end program % gfcx -c a.f90 a.f90:6:13: 6 | y = x%im | 1 Error: Symbol 'x' at (1) has no IMPLICIT type 'x' has the type of thi selector, which is COMPLEX. I have created the following bug report https://gcc.gnu.org/pipermail/gcc-bugs/2024-February/855452.html and attached a patch that fixes the problem. The patch has been regression tested against x86_64-*-freebsd. Please commit. -- Steve