gcc/testsuite/gfortran.dg/explicit_shape_1.f90


1
2
3
4
5
6
7

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