! { dg-do compile }
! { dg-options -std=f2008 }

! Contributed by mrestelli@gmail.com
! Check that instead of an ICE the error message is emitted.

module m
 implicit none
contains

 subroutine s()
  real, allocatable :: x(:)
  real :: y

   y = 5.0
   ! x either needs an array spec, or y needs to be an array.
   allocate( x , source=y ) ! { dg-error "Array specification or array-valued SOURCE= expression required in ALLOCATE statement" }

 end subroutine s

end module m