blob: 8066bcb39548cd958cccd018786602ad0b16b070 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
! { dg-do compile }
! Regression. ICE on valid code.
! The following worked with 4.1.3 and 4.2.2, but failed
! (segmentation fault) with 4.3.0 because the type comparison
! tried to comparethe types of the components of type(node), even
! though the only component is of type(node).
!
! Found using the Fortran Company Fortran 90 Test Suite (Lite),
! Version 1.4
!
! Reported by Tobias Burnus <burnus@gcc.gnu.org>
!
program error
implicit none
type node
sequence
type(node), pointer :: next
end type
type(node), pointer :: list
interface
subroutine insert(ptr)
implicit none
type node
sequence
type(node), pointer :: next
end type
type(node), pointer :: ptr
end subroutine insert
end interface
allocate (list);
end program error
|
