| ! { 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 | |