1 files changed, 30 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/module_read_2.f90 b/gcc/testsuite/gfortran.dg/module_read_2.f90
new file mode 100644
index 000000000..d001ca758
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/module_read_2.f90
@@ -0,0 +1,30 @@
+! { dg-do run }
+!
+! PR fortran/43199
+!
+! This program gave an ICE due to reading the REF_COMPONENT with CLASS.
+!
+module m_string
+  type t_string
+      character, dimension(:), allocatable :: string
+  end type t_string
+contains
+pure function string_to_char ( s ) result(res)
+  class(t_string), intent(in) :: s
+  character(len=size(s%string)) :: res
+  integer :: i
+  do i = 1,len(res)
+    res(i:i) = s%string(i)
+  end do
+end function string_to_char
+end module m_string
+
+use m_string
+type(t_string) :: str
+allocate(str%string(5))
+str%string = ['H','e','l','l','o']
+if (len (string_to_char (str)) /= 5) call abort ()
+if (string_to_char (str) /= "Hello") call abort ()
+end
+
+! { dg-final { cleanup-modules "m_string" } }