15 lines
221 B
Fortran
15 lines
221 B
Fortran
|
! { dg-do compile }
|
||
|
!
|
||
|
! PR fortran/42922
|
||
|
!
|
||
|
! Contributed by mrestelli@gmail.com
|
||
|
!
|
||
|
pure subroutine psub()
|
||
|
implicit none
|
||
|
type ilist
|
||
|
integer :: i = 0
|
||
|
end type ilist
|
||
|
type(ilist) :: x
|
||
|
x%i = 1
|
||
|
end subroutine psub
|