2 ! PR 83664 - invalid code that used to be accepted.
6 integer :: i
,n1
, n2
, n3
7 character(len
=3), parameter :: e(2,3,4) = reshape([(repeat(achar(i
),3),i
=iachar('a'),iachar('a')+2*3*4-1)], &
9 character(len
=3), parameter :: bnd2(3,5) = reshape([(repeat(achar(i
),3),i
=iachar('A'),iachar('A')+3*5-1)], &
11 character(len
=3) :: f2(2,3,4)
14 f2
= eoshift(e
,shift
=n
,boundary
=bnd2
) ! { dg-error "has invalid shape" }
15 f2
= eoshift(e
,shift
=1,boundary
="x") ! { dg-error "must be of same type and kind" }
17 print '(*(1H",A,1H",:","))',f2