[Bug fortran/64947] New: Internal compiler error: in gimplify_expr, at gimplify.c:8425

["bugs at stellardeath dot org" <gcc-bugzilla@gcc.gnu.org>]

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

            Bug ID: 64947
           Summary: Internal compiler error: in gimplify_expr, at
                    gimplify.c:8425
           Product: gcc
           Version: 4.9.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: bugs at stellardeath dot org

Created attachment 34676
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=34676&action=edit
Fairly minimal testcase to trigger the bug.

The following (IMO valid) code produces an internal compiler error for gfortran
4.9.0 which is available on my openSUSE:

#> cat testcase.f90
module ice_gimplify_expr
  use, intrinsic :: iso_c_binding
  implicit none

  integer, parameter :: name_length = 40

  type :: node_t
    character(len=name_length) :: name
    contains
      procedure, pass :: get_child => node_get_child
  end type

  interface
    pure function strnlen(ptr, maxlen) result(size) bind(c, name="strnlen")
      use, intrinsic :: iso_c_binding
      type(c_ptr), intent(in), value :: ptr
      integer(kind=C_SIZE_T), intent(in), value :: maxlen
      integer(kind=C_SIZE_T) :: size
    end function
  end interface

  contains

  function node_get_child(self, name) result(child)
    class(node_t), intent(in) :: self
    character(len=*), intent(in) :: name
    type(node_t), pointer :: child
    child => NULL()
  end function

  function c_string(ptr) result(s)
    type(c_ptr), value, intent(in) :: ptr
    character(kind=C_CHAR, len=strnlen(ptr, int(name_length, kind=C_SIZE_T))),
pointer :: s
    call c_f_pointer(ptr, s)
  end function

  function node_from_strings(strings) result(node)
    type(node_t), pointer :: node
    type(c_ptr), intent(in), dimension(2) :: strings
    node => node%get_child(c_string(strings(1)))
  end function

end module
#> gfortran-4.9 --version
GNU Fortran (SUSE Linux) 4.9.0
Copyright (C) 2014 Free Software Foundation, Inc.

GNU Fortran comes with NO WARRANTY, to the extent permitted by law.
You may redistribute copies of GNU Fortran
under the terms of the GNU General Public License.
For more information about these matters, see the file named COPYING

#> gfortran-4.9 -ffree-form -c testcase.f90
testcase.f90: In function ‘node_from_strings’:
testcase.f90:40:0: internal compiler error: in gimplify_expr, at
gimplify.c:8425
     node => node%get_child(c_string(strings(1)))
 ^
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://bugs.opensuse.org/> for instructions.
#>
>From gcc-bugs-return-476129-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org Thu Feb 05 14:27:59 2015
Return-Path: <gcc-bugs-return-476129-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Delivered-To: listarch-gcc-bugs@gcc.gnu.org
Received: (qmail 15459 invoked by alias); 5 Feb 2015 14:27:59 -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 15322 invoked by uid 48); 5 Feb 2015 14:27:56 -0000
From: "gene at staubsaal dot de" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug c++/64915] lambda partially drops constness of 'this'
Date: Thu, 05 Feb 2015 14:27:00 -0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: changed
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: c++
X-Bugzilla-Version: 4.8.2
X-Bugzilla-Keywords:
X-Bugzilla-Severity: normal
X-Bugzilla-Who: gene at staubsaal dot de
X-Bugzilla-Status: RESOLVED
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: bug_status resolution
Message-ID: <bug-64915-4-DVd3J4vMDH@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-64915-4@http.gcc.gnu.org/bugzilla/>
References: <bug-64915-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-02/txt/msg00462.txt.bz2
Content-length: 495

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

gene at staubsaal dot de changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |RESOLVED
         Resolution|---                         |DUPLICATE

--- Comment #1 from gene at staubsaal dot de ---
Duplicated, didn't find it on my last search.

*** This bug has been marked as a duplicate of bug 60463 ***