1! { dg-do compile }
2!
3! PR fortran/31253 -- ICE on invlid initialization expression
4! Contributed by: Mikael Morin <mikael DOT morin AT tele2 DOT fr>
5!
6
7subroutine probleme(p)
8  real(kind=8), dimension(:) :: p
9  integer :: nx = size(p, 1)          ! { dg-error "Assumed-shape array" }
10  integer :: nix
11
12  nix = nx
13end subroutine
14