From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 8115 invoked by alias); 23 Nov 2013 13:33:10 -0000 Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org Received: (qmail 8093 invoked by uid 48); 23 Nov 2013 13:33:06 -0000 From: "dominiq at lps dot ens.fr" To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/57048] [4.9 Regression] Handling of C_PTR and C_FUNPTR leads to reject valid Date: Sat, 23 Nov 2013 13:33:00 -0000 X-Bugzilla-Reason: CC X-Bugzilla-Type: changed X-Bugzilla-Watch-Reason: None X-Bugzilla-Product: gcc X-Bugzilla-Component: fortran X-Bugzilla-Version: 4.9.0 X-Bugzilla-Keywords: rejects-valid X-Bugzilla-Severity: normal X-Bugzilla-Who: dominiq at lps dot ens.fr X-Bugzilla-Status: NEW X-Bugzilla-Priority: P4 X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org X-Bugzilla-Target-Milestone: 4.9.0 X-Bugzilla-Flags: X-Bugzilla-Changed-Fields: bug_status cf_reconfirmed_on everconfirmed Message-ID: In-Reply-To: References: Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: 7bit X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/ Auto-Submitted: auto-generated MIME-Version: 1.0 X-SW-Source: 2013-11/txt/msg02402.txt.bz2 http://gcc.gnu.org/bugzilla/show_bug.cgi?id=57048 Dominique d'Humieres changed: What |Removed |Added ---------------------------------------------------------------------------- Status|UNCONFIRMED |NEW Last reconfirmed| |2013-11-23 Ever confirmed|0 |1 --- Comment #1 from Dominique d'Humieres --- On x86_64-apple-darwin13, I get with gfortran 4.8.2 [Book15] f90/bug% gfortran pr57048.f90 [Book15] f90/bug% grep funptr m.mod (('c_funptr' '__iso_c_binding' 2) ('t' 'm' 3)) (2 'C_funptr' '__iso_c_binding' '' 1 ((DERIVED UNKNOWN-INTENT DERIVED 2 0 1 1 UNKNOWN ()) 0 0 () () 0 ((4 '__c_funptr_c_address' ( (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 ((5 'funptr' (DERIVED 2 0 0 0 7 'c_funptr' '__iso_c_binding' '' 1 ((PROCEDURE UNKNOWN-INTENT ('C_funptr' 0 2 'T' 0 3 '__iso_c_binding' 0 6 'c_funptr' 0 7 'm' 0 8 't' What is setting the capital C and why?