1 files changed, 43 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/class_dummy_1.f03 b/gcc/testsuite/gfortran.dg/class_dummy_1.f03
new file mode 100644
index 000000000..950379027
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/class_dummy_1.f03
@@ -0,0 +1,43 @@
+! { dg-do run }
+!
+! PR 44541: [OOP] wrong code for polymorphic variable with INTENT(OUT)/Alloc w/ MOLD
+!
+! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
+
+  implicit none
+
+  type t
+    integer :: a = 1
+  end type t
+
+  type, extends(t) :: t2
+    integer :: b = 3
+  end type t2
+
+  type(t2) :: y
+
+  y%a = 44
+  y%b = 55
+  call intent_out (y)
+  if (y%a/=1 .or. y%b/=3) call abort()
+
+  y%a = 66
+  y%b = 77
+  call intent_out_unused (y)
+  if (y%a/=1 .or. y%b/=3) call abort()
+
+contains
+
+  subroutine intent_out(x)
+    class(t), intent(out) :: x
+    select type (x)
+      type is (t2)
+      if (x%a/=1 .or. x%b/=3) call abort()
+    end select
+  end subroutine
+
+   subroutine intent_out_unused(x)
+     class(t), intent(out) :: x
+   end subroutine
+
+end