blob: ff8451093a842c956e7a34d6aa5ab0173d07f62c [file] [log] [blame]
! { 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