Fortran/gfortran/regression/explicit_shape_1.f90 - llvm-test-suite - Git at Google

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