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