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