1! { dg-do compile }
2! PR fortran/83633
3! Original testcase by Nathan T. Weeks  <weeks at iastate dot edu>
4!
5integer :: A(command_argument_count()) = 1 ! { dg-error "nonconstant bounds" }
6write (*,*) A
7end
8