1! { dg-do compile }
2! { dg-options "-finit-derived" }
3!
4! PR fortran/83183
5!
6! Test a regression where -finit-derived recursed infinitely generating
7! initializers for allocatable components of the same derived type.
8!
9
10program pr83183
11  type :: linked_list
12     type(linked_list), allocatable :: link
13     integer :: value
14  end type
15  type(linked_list) :: test
16  allocate(test % link)
17  print *, test%value
18  print *, test%link%value
19end program
20