PR inline-asm/84742

[official-gcc.git] / gcc / testsuite / gfortran.dg / explicit_shape_1.f90

! { 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