1 files changed, 26 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr91862.f90 b/gcc/testsuite/gfortran.dg/pr91862.f90
new file mode 100644
index 0000000..17d5cdd
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr91862.f90
@@ -0,0 +1,26 @@
+! { dg-do compile }
+!
+! Check that PR91862 remains fixed by patch for PRs 96100/101.
+!
+! Contributed by Gerhard Steinmetz  <>gscfq@t-online.de>
+!
+  call foo
+  call bar
+contains
+
+  subroutine foo
+    integer :: i
+    character(3) :: a(3) = 'abc'
+    character(1) :: b(1)
+    b = [([ (a(1)(i:1), i=1,1) ])]
+    print *, b
+  end subroutine
+
+  subroutine bar
+    integer :: i
+    character(3) :: a(3) = 'abc'
+    character(1) :: b(1)
+    b = [([ (a(1)(1:i), i=1,1) ])]
+    print *, b
+  end subroutine
+end