summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/allocate_error_3.f90
blob: 7616caad380938370bd1964a9b8115a1556f2efa (plain)
1
2
3
4
5
6
7
8
9
! { 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