4 ! Check the absence of ICE when generating calls to VERIFY with a KIND argument.
7 character(len
=10) :: y(2)
8 integer :: z(2), x(2), w(2), v(2)
10 z
= verify(y
, 'e', kind
=4) + 1
11 x
= verify(y
, 'e', back
=.false
., kind
=4) + 1
12 w
= verify(y
, 'e', .false
., kind
=4) + 1
13 x
= verify(y
, 'e', .false
., 4) + 1