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