2 ! { dg-additional-options "-ffrontend-optimize" }
3 ! PR 90344 - this used to ICE.
4 ! Test case by Urban Jost.
7 elemental
function func1(ch
) result(res
)
8 character,intent(in
) :: ch
12 elemental
function func2(ch
) result(res
)
13 character,intent(in
) :: ch
17 pure
function s2a(string
) RESULT (array
)
18 character(len
=*),intent(in
) :: string
19 character(len
=1) :: array(len(string
))
20 forall(i
=1:len(string
)) array(i
) = string(i
:i
)
23 write(*,*)all(func1(s2a('ABCDEFG')).or
.func2(s2a('ABCDEFG')))