https://gcc.gnu.org/bugzilla/show_bug.cgi?id=61261
Bug ID: 61261
Summary: [OOP] Segfault on source-allocating polymorphic
variables
Product: gcc
Version: 4.8.2
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: thatcadguy at gmail dot com
Created attachment 32835
--> https://gcc.gnu.org/bugzilla/attachment.cgi?id=32835&action=edit
Test source file
The attached code produces a segfault on Ubuntu 14.04 with gfortran 4.8.2. I
think this may be related to an existing bug, but not sure.
MODULE modu
IMPLICIT NONE
TYPE element
CLASS(*), ALLOCATABLE :: e
END TYPE element
CONTAINS
SUBROUTINE sub(el, p)
TYPE(element), INTENT(INOUT) :: el
CLASS(*), POINTER, INTENT(IN) :: p
ALLOCATE(el%e, SOURCE = p)
END SUBROUTINE sub
END MODULE modu
PROGRAM x
USE modu
IMPLICIT NONE
CHARACTER(LEN=80), TARGET :: c80
CLASS(*), POINTER :: p
TYPE(element) :: el
c80 = 'the quick brown fox jumps over the lazy dog'
p => c80
CALL sub(el, p)
END PROGRAM x
