Sign in
gnu
/
gcc
/
a48323ff520827d38b0ca4b6af4dc87fe9e26b50
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pure_initializer_3.f90
blob: 91ec178f14d4f1edef567295d595bcf206dac108 [
file
] [
log
] [
blame
]
!
{
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