gcc/testsuite/gfortran.dg/pr106209.f90


1
2
3
4
5
6
7
8
9

! { dg-do compile }
! PR fortran/106209 - ICE in add_init_expr_to_sym
! Contributed by G.Steinmetz

program p
  integer, parameter :: a(:) = 0   ! { dg-error "of deferred shape" }
  integer, parameter :: b(*) = a   ! { dg-error "Bad shape of initializer" }
  integer, parameter :: c(*) = [a] ! { dg-error "Cannot determine shape" }
end