1 files changed, 34 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/class_29.f03 b/gcc/testsuite/gfortran.dg/class_29.f03
new file mode 100644
index 000000000..d5ed8fae3
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/class_29.f03
@@ -0,0 +1,34 @@
+! { dg-do compile }
+!
+! PR 46313: [OOP] OOP-ABI issue, ALLOCATE issue, CLASS renaming issue
+!
+! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
+
+module m1
+  type mytype
+    real :: a(10) = 2
+  end type
+end module m1
+
+module m2
+  type mytype
+    real :: b(10) = 8
+  end type
+end module m2
+
+program p
+use m1, t1 => mytype
+use m2, t2 => mytype
+implicit none
+
+class(t1), allocatable :: x
+class(t2), allocatable :: y
+
+allocate (t1 :: x)
+allocate (t2 :: y)
+
+print *, x%a
+print *, y%b
+end
+
+! { dg-final { cleanup-modules "m1 m2" } }