5 integer, parameter :: n
= 4
6 complex(n
%re
) :: x
! { dg-error "The RE or IM part_ref at" }
7 complex(n
%im
) :: y
! { dg-error "The RE or IM part_ref at" }
8 complex(n
%len
) :: z
! { dg-error "The LEN part_ref at" }
9 character(n
%im
) :: a
! { dg-error "The RE or IM part_ref at" }
10 character(n
%re
) :: b
! { dg-error "The RE or IM part_ref at" }
11 character(n
%len
) :: c
! { dg-error "The LEN part_ref at" }