1! { dg-do compile } 2! PR fortran/41369 - rejected empty type in function return values 3 4module m 5 type t 6 end type t 7end module 8 9type(t) function foo() 10 use m 11 foo = t() 12end function foo 13