1 2 3 4 5 6 7
! { dg-do compile } program p class(*), allocatable :: z z = z'1' ! { dg-error "BOZ literal constant at" } end