2 ! PR 51858 - this used to generate wrong code.
3 ! Original test case by Don Simons.
10 character(len
=1):: charq
16 if (charq
.eq
. ' ') then
18 else if ((my_ichar(charq
).ge
.97 .and
. my_ichar(charq
).le
.103)) then
21 if ((.not
. test1_ok
) .or
. (.not
. test2_ok
)) STOP 1
27 if (charq
.eq
. ' ') then
29 else if ((my_ichar(charq
).lt
.97 .or
. my_ichar(charq
).gt
.103)) then
31 else if ((my_ichar(charq
).ge
.97 .and
. my_ichar(charq
).le
.103)) then
34 if ((.not
. test1_ok
) .or
. (.not
. test2_ok
) .or
. (.not
. test3_ok
)) STOP 2
40 if (charq
.eq
. ' ') then
42 else if ((my_ichar(charq
).lt
.97 .or
. my_ichar(charq
).gt
.103)) then
48 if ((.not
. test1_ok
) .or
. (.not
. test2_ok
) .or
. (.not
. test3_ok
)) STOP 3
51 pure
function my_ichar(c
)
53 character(len
=1), intent(in
) :: c