From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 37511 invoked by alias); 23 Apr 2015 13:52:27 -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 37398 invoked by uid 48); 23 Apr 2015 13:52:23 -0000 From: "juergen.reuter at desy dot de" To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/65548] [5/6 Regression] gfc_conv_procedure_call Date: Thu, 23 Apr 2015 13:52: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: unknown X-Bugzilla-Keywords: X-Bugzilla-Severity: normal X-Bugzilla-Who: juergen.reuter at desy dot de X-Bugzilla-Status: WAITING X-Bugzilla-Priority: P4 X-Bugzilla-Assigned-To: vehre at gcc dot gnu.org X-Bugzilla-Target-Milestone: 5.2 X-Bugzilla-Flags: X-Bugzilla-Changed-Fields: Message-ID: In-Reply-To: References: Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/ Auto-Submitted: auto-generated MIME-Version: 1.0 X-SW-Source: 2015-04/txt/msg02024.txt.bz2 https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D65548 --- Comment #25 from J=C3=BCrgen Reuter --- Example 1: module foo type :: t integer :: n real, dimension(:,:), allocatable :: val contains procedure :: make =3D> t_make generic :: get_int =3D> get_int_array, get_int_element procedure :: get_int_array =3D> t_get_int_array procedure :: get_int_element =3D> t_get_int_element end type t contains subroutine t_make (this) class(t), intent(inout) :: this real, dimension(:), allocatable :: int allocate (int (0:this%n-1), source=3Dthis%get_int()) end subroutine t_make pure function t_get_int_array (this) result (array) class(t), intent(in) :: this real, dimension(this%n) :: array array =3D this%val (0:this%n-1, 4) end function t_get_int_array pure function t_get_int_element (this, set) result (element) class(t), intent(in) :: this integer, intent(in) :: set real :: element element =3D this%val (set, 4) end function t_get_int_element end module foo >>From gcc-bugs-return-484473-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org Thu Apr 23 14:05:28 2015 Return-Path: Delivered-To: listarch-gcc-bugs@gcc.gnu.org Received: (qmail 68186 invoked by alias); 23 Apr 2015 14:05:28 -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 Delivered-To: mailing list gcc-bugs@gcc.gnu.org Received: (qmail 68123 invoked by uid 48); 23 Apr 2015 14:05:24 -0000 From: "dominiq at lps dot ens.fr" To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/65548] [5/6 Regression] gfc_conv_procedure_call Date: Thu, 23 Apr 2015 14:05: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: unknown X-Bugzilla-Keywords: 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: vehre at gcc dot gnu.org X-Bugzilla-Target-Milestone: 5.2 X-Bugzilla-Flags: X-Bugzilla-Changed-Fields: bug_status 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: 2015-04/txt/msg02025.txt.bz2 Content-length: 639 https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65548 Dominique d'Humieres changed: What |Removed |Added ---------------------------------------------------------------------------- Status|WAITING |NEW --- Comment #26 from Dominique d'Humieres --- Compiling the test in comment 25 gives the following ICE pr65548_2.f90:17:0: allocate (int (0:this%n-1), source=this%get_int()) 1 internal compiler error: in gfc_conv_procedure_call, at fortran/trans-expr.c:5755 even with the patch in comment in comment 13.