From: Louis Krupp <lkrupp@gcc.gnu.org>
Date: Wed, 7 Oct 2015 09:21:58 +0000 (+0000)
Subject: Check in forgotten test for fortran/65766
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=bbf3abfa7377acfb5e8d5f34239807444dea9caa;p=gcc.git

Check in forgotten test for fortran/65766

From-SVN: r228564
---

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
index 00000000000..3a69a58fae3
--- /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