linked_list_1.f90

来自「用于进行gcc测试」· F90 代码 · 共 33 行

! { 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 <[e-mail]>
!
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