blob: ca3cd00d855877e1b08f7bebf8757c92980230d9 [file] [log] [blame]
! { 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