1! { dg-do compile }
2!
3! PR fortran/42922
4!
5! Contributed by mrestelli@gmail.com
6!
7pure subroutine psub()
8  implicit none
9  type ilist
10    integer :: i = 0
11  end type ilist
12  type(ilist) :: x
13  x%i = 1
14end subroutine psub
15