2 ! PR fortran/106209 - ICE in add_init_expr_to_sym
3 ! Contributed by G.Steinmetz
6 integer, parameter :: a(:) = 0 ! { dg-error "of deferred shape" }
7 integer, parameter :: b(*) = a
! { dg-error "Bad shape of initializer" }
8 integer, parameter :: c(*) = [a
] ! { dg-error "Cannot determine shape" }