2 ! PR31306 ICE with implicit character variables
3 ! Test case from PR and prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
7 function ouch(x
,y
) ! { dg-error "has no IMPLICIT type" }
8 implicit character(len(ouch
)) (x
) ! { dg-error "Conflict in attributes" }
9 implicit character(len(x
)+1) (y
)
10 implicit character(len(y
)-1) (o
)
12 character(len(y
)-1) ouch
15 ouch(i
:i
) = achar(ieor(iachar(x(i
:i
)),iachar(y(i
:i
)))) ! { dg-error " PROCEDURE attribute conflicts" }