blob: 17d5cdd035f0e3ffaa28acc848db9ba2c2894f16 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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
|
