! { dg-do compile } 

program p
   print *, [character(((/1/))) :: 'a','b'] ! { dg-error "Scalar INTEGER expression expected" }
   print *, [character(([1])) :: 'a','b']   ! { dg-error "Scalar INTEGER expression expected" }
   print *, [character(1+[1]) :: 'a','b']   ! { dg-error "Scalar INTEGER expression expected" }
end