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