From 831ff94a882149616b17132d23478c9d1fcbdcd6 Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Tue, 2 Feb 2021 13:55:50 +0000 Subject: [PATCH] Fortran: Check remains fixed by patch for PRs 96100/101 [PR91862]. 2021-02-02 Paul Thomas gcc/testsuite PR fortran/91862 * gfortran.dg/pr91862.f90: New test. --- gcc/testsuite/gfortran.dg/pr91862.f90 | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/pr91862.f90 diff --git a/gcc/testsuite/gfortran.dg/pr91862.f90 b/gcc/testsuite/gfortran.dg/pr91862.f90 new file mode 100644 index 00000000000..17d5cdd035f --- /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 -- 2.30.2