1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/func_derived_5.f90 b/gcc/testsuite/gfortran.dg/func_derived_5.f90
new file mode 100644
index 000000000..76d45a883
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/func_derived_5.f90
@@ -0,0 +1,14 @@
+! { dg-do compile }
+! PR fortran/41369 - rejected empty type in function return values
+
+module m
+ type t
+ end type t
+end module
+
+type(t) function foo()
+  use m
+  foo = t()
+end function foo
+
+! { dg-final { cleanup-modules "m" } }