1 files changed, 23 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/class_16.f03 b/gcc/testsuite/gfortran.dg/class_16.f03
new file mode 100644
index 000000000..7d0d38f80
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/class_16.f03
@@ -0,0 +1,23 @@
+! { dg-do compile }
+!
+! PR 43896: [fortran-dev Regression] ICE in gfc_conv_variable, at fortran/trans-expr.c:551
+!
+! Contributed by Fran Martinez Fadrique <fmartinez@gmv.com>
+
+module m_rotation_matrix
+
+  type t_rotation_matrix
+    contains
+      procedure :: array => rotation_matrix_array
+  end type
+
+contains
+
+  function rotation_matrix_array( rot ) result(array)
+    class(t_rotation_matrix) :: rot
+    double precision, dimension(3,3)    :: array
+  end function
+
+end module
+
+! { dg-final { cleanup-modules "m_rotation_matrix" } }