nvptx, libgfortran: Switch out of "minimal" mode
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr106209.f90
blob44f9233ec2f92994816ba2448c8edbe5f98bdec2
1 ! { dg-do compile }
2 ! PR fortran/106209 - ICE in add_init_expr_to_sym
3 ! Contributed by G.Steinmetz
5 program p
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" }
9 end