Fortran: Check remains fixed by patch for PRs 96100/101 [PR91862].

2021-02-02  Paul Thomas  <pault@gcc.gnu.org>

gcc/testsuite
	PR fortran/91862
	* gfortran.dg/pr91862.f90: New test.

diff --git a/gcc/testsuite/gfortran.dg/pr91862.f90 b/gcc/testsuite/gfortran.dg/pr91862.f90
new file mode 100644 (file)
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