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