1 files changed, 35 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/defined_assignment_4.f90 b/gcc/testsuite/gfortran.dg/defined_assignment_4.f90
new file mode 100644
index 0000000000..e7a1b8e0f6
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/defined_assignment_4.f90
@@ -0,0 +1,35 @@
+! { dg-do run }
+! Test the fix for PR46897. First patch did not run this case correctly.
+! Contributed by Tobias Burnus  <burnus@gcc.gnu.org>
+!
+module a_mod
+  type :: a
+    integer :: i = 99
+  contains
+     procedure :: a_ass
+     generic :: assignment(=) => a_ass
+  end type a
+
+  type c
+    type(a) :: ta
+  end type c
+
+  type :: b
+    type(c) :: tc
+  end type b
+
+contains
+  elemental subroutine a_ass(out, in)
+    class(a), intent(INout) :: out
+    type(a), intent(in)  :: in
+      out%i = 2*in%i
+  end subroutine a_ass
+end module a_mod
+
+program assign
+  use a_mod
+  type(b) :: tt
+  type(b) :: tb1
+  tt = tb1
+  if (tt%tc%ta%i .ne. 198) call abort
+end program assign