4 integer :: a(4) = [1, 2, 3, 4]
5 print *, a(z
'1') ! { dg-error "Invalid BOZ literal constant" }
6 print *, a(1:z
'3') ! { dg-error "Invalid BOZ literal constant" }
7 print *, a(1:2:z
'2') ! { dg-error "Invalid BOZ literal constant" }
8 print *, a([z
'2',z
'1']) ! { dg-error "cannot appear in an array constructor" }
