gcc/testsuite/gfortran.dg/func_result_5.f90

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