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") call abort
26 if (astr(i:i) /= achar(0)) call abort
29 ! { dg-final { cleanup-modules "cyclic" } }