2 ! PR31306 ICE with implicit character variables
3 ! Test case from PR and prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
7 character(10) function ouch(x
,y
)
8 implicit character(len(ouch
)) (x
)
9 implicit character(len(x
)+1) (y
)
13 ouch(i
:i
) = achar(ieor(iachar(x(i
:i
)),iachar(y(i
:i
))))
23 write(astr
,'(a)') ouch('YOW! ','jerry ')
24 if (astr(1:5) /= "3*%SY") STOP 1
26 if (astr(i
:i
) /= achar(0)) STOP 2