[Bug fortran/66257] New: Regression: ELEMENTAL procedure pointer component XX is not allowed as an actual argument

["gccbugreport.hgitnskl at gmail dot com" <gcc-bugzilla@gcc.gnu.org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66257

            Bug ID: 66257
           Summary: Regression: ELEMENTAL procedure pointer component XX
                    is not allowed as an actual argument
           Product: gcc
           Version: 5.1.0
            Status: UNCONFIRMED
          Severity: major
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gccbugreport.hgitnskl at gmail dot com
  Target Milestone: ---

Created attachment 35602
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=35602&action=edit
Test code for the error

Hi everyone,

I think this is a regression for the fortran compiler. The given test code in
attachment was working in 4.9. The errors are:

Erreur: ELEMENTAL procedure pointer component ‘e’ is not allowed as an actual
argument at (1)
test.f90:54:11:

 Om = log10(self%E(z))
           1
Erreur: ELEMENTAL procedure pointer component ‘e’ is not allowed as an actual
argument at (1)

The argument, which is a double, is treated as the procedure.
>From gcc-bugs-return-487120-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org Fri May 22 21:06:02 2015
Return-Path: <gcc-bugs-return-487120-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Delivered-To: listarch-gcc-bugs@gcc.gnu.org
Received: (qmail 119519 invoked by alias); 22 May 2015 21:06:02 -0000
Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Id: <gcc-bugs.gcc.gnu.org>
List-Archive: <http://gcc.gnu.org/ml/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-help@gcc.gnu.org>
Sender: gcc-bugs-owner@gcc.gnu.org
Delivered-To: mailing list gcc-bugs@gcc.gnu.org
Received: (qmail 119466 invoked by uid 55); 22 May 2015 21:05:58 -0000
From: "glisse at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug other/63387] Optimize pairs of isnan() calls into a single isunordered()
Date: Fri, 22 May 2015 21:06:00 -0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: changed
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: other
X-Bugzilla-Version: 4.9.0
X-Bugzilla-Keywords: missed-optimization
X-Bugzilla-Severity: normal
X-Bugzilla-Who: glisse at gcc dot gnu.org
X-Bugzilla-Status: NEW
X-Bugzilla-Resolution:
X-Bugzilla-Priority: P3
X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org
X-Bugzilla-Target-Milestone: ---
X-Bugzilla-Flags:
X-Bugzilla-Changed-Fields:
Message-ID: <bug-63387-4-YoFKdl6qgr@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-63387-4@http.gcc.gnu.org/bugzilla/>
References: <bug-63387-4@http.gcc.gnu.org/bugzilla/>
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: 2015-05/txt/msg01960.txt.bz2
Content-length: 859

https://gcc.gnu.org/bugzilla/show_bug.cgi?idc387

--- Comment #8 from Marc Glisse <glisse at gcc dot gnu.org> ---
Author: glisse
Date: Fri May 22 21:05:26 2015
New Revision: 223591

URL: https://gcc.gnu.org/viewcvs?rev"3591&root=gcc&view=rev
Log:
2015-05-22  Marc Glisse  <marc.glisse@inria.fr>

        PR tree-optimization/63387
gcc/
        * match.pd ((X /[ex] A) * A -> X): Remove unnecessary condition.
        ((x ord x) & (y ord y) -> (x ord y),
        (x ord x) & (x ord y) -> (x ord y)): New simplifications.
        * fold-const.c (tree_unary_nonnegative_warnv_p) <ABS_EXPR>: Handle
        vectors like scalars.
gcc/testsuite/
        * gcc.dg/pr63387-2.c: New testcase.


Added:
    trunk/gcc/testsuite/gcc.dg/pr63387-2.c
Modified:
    trunk/gcc/ChangeLog
    trunk/gcc/fold-const.c
    trunk/gcc/match.pd
    trunk/gcc/testsuite/ChangeLog