1! { dg-do compile }
2! PR fortran/65173
3program p
4    type t
5       character, allocatable :: z1(:) ! { dg-error "." }
6       character, allocatable :: z1(:) ! { dg-error "already declared at" }
7    end type
8end
9