Check in forgotten test for fortran/65766

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@228564 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/gfortran.dg/substr_alloc_string_comp_1.f90 b/gcc/testsuite/gfortran.dg/substr_alloc_string_comp_1.f90
new file mode 100644 (file)
index 0000000..3a69a58
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/substr_alloc_string_comp_1.f90
@@ -0,0 +1,23 @@
+! { dg-do run }
+! PR fortran/65766
+! Substrings of allocatable string components of derived types
+program substr_derived_alloc_comp
+    implicit none
+
+    type t1
+        character(len=:), allocatable :: s
+    end type t1
+
+    character(len=*), parameter :: c = &
+      "0123456789abcdefghijklmnopqrstuvwxyz"
+
+    type(t1) x1
+
+    integer i
+
+    x1%s = c
+
+    do i = 1, 36
+        if (x1%s(i:) .ne. c(i:)) call abort
+    end do
+end program