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