gcc/testsuite/gfortran.dg/pure_initializer_3.f90

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