gcc/testsuite/gfortran.dg/initialization_7.f90

   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
   7 subroutine 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
  13 end subroutine