1! { dg-do compile }
2!
3! PR 49708: [4.5/4.6/4.7 Regression] ICE with allocate and no dimensions
4!
5! Contributed by <fnordxyz@yahoo.com>
6
7  real, pointer :: x(:)
8  allocate(x)            ! { dg-error "Array specification required" }
9end
10