| ! { 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 |