1! { dg-do compile }
2!
3! PR fortran/42650
4!
5! Result type was not working
6!
7
8type(t) function func2() result(res)
9  type t
10    sequence
11    integer :: i = 5
12  end type t
13  res%i = 2
14end function func2
15