From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-407385-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 941 invoked by alias); 21 Nov 2012 14:41:31 -0000
Received: (qmail 31704 invoked by uid 48); 21 Nov 2012 14:41:00 -0000
From: "valeryweber at hotmail dot com" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/55427] New: ICE class pointer
Date: Wed, 21 Nov 2012 14:41:00 -0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: new
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: fortran
X-Bugzilla-Keywords:
X-Bugzilla-Severity: normal
X-Bugzilla-Who: valeryweber at hotmail dot com
X-Bugzilla-Status: UNCONFIRMED
X-Bugzilla-Priority: P3
X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org
X-Bugzilla-Target-Milestone: ---
X-Bugzilla-Changed-Fields:
Message-ID: <bug-55427-4@http.gcc.gnu.org/bugzilla/>
X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/
Auto-Submitted: auto-generated
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
MIME-Version: 1.0
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: 2012-11/txt/msg02047.txt.bz2


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

             Bug #: 55427
           Summary: ICE class pointer
    Classification: Unclassified
           Product: gcc
           Version: 4.8.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: valeryweber@hotmail.com


Dear All

Is that known?

gcc version 4.8.0 20121121 (experimental) (GCC)=20

Valery

!>>>>>>>
MODULE base_types
  IMPLICIT NONE
  TYPE :: base_type
  END TYPE base_type
  TYPE, extends( base_type ) :: integer_type
     integer :: i
  END TYPE integer_type
contains
  FUNCTION points_to ( this ) RESULT( reslt )
    CLASS( base_type ), DIMENSION( : ), TARGET :: this
    CLASS( base_type ), DIMENSION( : ), POINTER :: reslt
    reslt =3D> this
  END FUNCTION points_to
END MODULE base_types

program bug
  use base_types
  implicit none
  CLASS( base_type ), POINTER, DIMENSION( : ) :: reslt
  CLASS( base_type ), ALLOCATABLE, DIMENSION( : ) :: val
  type(integer_type) :: i
  i%i=3D12345
  ALLOCATE( val(10), source=3Di )
  reslt =3D> points_to ( val )
  write(*,*) associated(reslt)
  select type( p=3D> reslt )
  type is(integer_type)
     write(*,*) 'p=3D',p(2)%i
  class default
     stop 666
  end select
end program bug
!=3D=3D=3D=3D=3D=3D=3D=3D=3D
 gfortran-trunk bug4.f90=20
bug4.f90: In function =E2=80=98bug=E2=80=99:
bug4.f90:24:0: internal compiler error: in fold_convert_loc, at
fold-const.c:1857
   reslt =3D> points_to ( val )
 ^
0x83cb322 fold_convert_loc(unsigned int, tree_node*, tree_node*)
        ../../gcc-trunk/gcc/fold-const.c:1856
0x81eff63 gfc_trans_pointer_assignment(gfc_expr*, gfc_expr*)
        ../../gcc-trunk/gcc/fortran/trans-expr.c:6350
0x81f34a5 gfc_trans_class_assign(gfc_expr*, gfc_expr*, gfc_exec_op)
        ../../gcc-trunk/gcc/fortran/trans-expr.c:888
0x81b1dda trans_code
        ../../gcc-trunk/gcc/fortran/trans.c:1322
0x81dcf17 gfc_generate_function_code(gfc_namespace*)
        ../../gcc-trunk/gcc/fortran/trans-decl.c:5349
0x816f1c5 translate_all_program_units
        ../../gcc-trunk/gcc/fortran/parse.c:4467
0x816f1c5 gfc_parse_file()
        ../../gcc-trunk/gcc/fortran/parse.c:4681
0x81acbca gfc_be_parse_file
        ../../gcc-trunk/gcc/fortran/f95-lang.c:191
Please submit a full bug report,
with preprocessed source if appropriate.
Please include the complete backtrace with any bug report.
See <http://gcc.gnu.org/bugs.html> for instructions.

!<<<<<<<<<