blob: ec48146736916f17fe9dd8e0cc686a6670ec91b9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
! { dg-do compile }
! PR 24426
! Pointer-components of derived type with initialized components
module crash
implicit none
type foo
integer :: i = 0
type (foo), pointer :: next
end type foo
type (foo), save :: bar
end module crash
|