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