blob: 7616caad380938370bd1964a9b8115a1556f2efa [file] [log] [blame]
! { dg-do compile }
!
! PR 49708: [4.5/4.6/4.7 Regression] ICE with allocate and no dimensions
!
! Contributed by <fnordxyz@yahoo.com>
real, pointer :: x(:)
allocate(x) ! { dg-error "Array specification required" }
end