From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-286367-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 7174 invoked by alias); 16 Jun 2009 09:06:47 -0000
Received: (qmail 7117 invoked by alias); 16 Jun 2009 09:06:32 -0000
Date: Tue, 16 Jun 2009 09:06:00 -0000
Message-ID: <20090616090632.7116.qmail@sourceware.org>
X-Bugzilla-Reason: CC
References: <bug-40039-16146@http.gcc.gnu.org/bugzilla/>
Subject: [Bug fortran/40039] Procedures as actual arguments: Check intent of arguments
In-Reply-To: <bug-40039-16146@http.gcc.gnu.org/bugzilla/>
Reply-To: gcc-bugzilla@gcc.gnu.org
To: gcc-bugs@gcc.gnu.org
From: "janus at gcc dot gnu dot org" <gcc-bugzilla@gcc.gnu.org>
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
X-SW-Source: 2009-06/txt/msg01019.txt.bz2



------- Comment #6 from janus at gcc dot gnu dot org  2009-06-16 09:06 -------
Subject: Bug 40039

Author: janus
Date: Tue Jun 16 09:06:13 2009
New Revision: 148519

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=148519
Log:
2009-06-16  Janus Weil  <janus@gcc.gnu.org>

        PR fortran/36947
        PR fortran/40039
        * expr.c (gfc_check_pointer_assign): Call 'gfc_compare_interfaces' with
        error message.
        * gfortran.h (gfc_compare_interfaces): Additional argument.
        * interface.c (operator_correspondence): Removed.
        (gfc_compare_interfaces): Additional argument to return error message.
        Directly use the code from 'operator_correspondence' instead of calling
        the function. Check for OPTIONAL. Some rearrangements.
        (check_interface1): Call 'gfc_compare_interfaces' without error
message.
        (compare_parameter): Call 'gfc_compare_interfaces' with error message.
        * resolve.c (check_generic_tbp_ambiguity): Call
'gfc_compare_interfaces'
        without error message.


2009-06-16  Janus Weil  <janus@gcc.gnu.org>

        PR fortran/36947
        PR fortran/40039
        * gfortran.dg/dummy_procedure_1.f90: Extended test case.
        * gfortran.dg/interface_20.f90: Modified error messages.
        * gfortran.dg/interface_21.f90: Ditto.
        * gfortran.dg/interface_26.f90: Ditto.
        * gfortran.dg/interface_27.f90: Ditto.
        * gfortran.dg/interface_28.f90: Extended test case.
        * gfortran.dg/interface_29.f90: New.
        * gfortran.dg/proc_decl_7.f90: Modified error messages.
        * gfortran.dg/proc_decl_8.f90: Ditto.
        * gfortran.dg/proc_ptr_11.f90: Ditto.
        * gfortran.dg/proc_ptr_15.f90: Ditto.


Added:
    trunk/gcc/testsuite/gfortran.dg/interface_29.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/expr.c
    trunk/gcc/fortran/gfortran.h
    trunk/gcc/fortran/interface.c
    trunk/gcc/fortran/resolve.c
    trunk/gcc/testsuite/ChangeLog
    trunk/gcc/testsuite/gfortran.dg/dummy_procedure_1.f90
    trunk/gcc/testsuite/gfortran.dg/interface_20.f90
    trunk/gcc/testsuite/gfortran.dg/interface_21.f90
    trunk/gcc/testsuite/gfortran.dg/interface_26.f90
    trunk/gcc/testsuite/gfortran.dg/interface_27.f90
    trunk/gcc/testsuite/gfortran.dg/interface_28.f90
    trunk/gcc/testsuite/gfortran.dg/proc_decl_7.f90
    trunk/gcc/testsuite/gfortran.dg/proc_decl_8.f90
    trunk/gcc/testsuite/gfortran.dg/proc_ptr_11.f90
    trunk/gcc/testsuite/gfortran.dg/proc_ptr_15.f90


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40039