14 lines
324 B
Fortran
14 lines
324 B
Fortran
|
! { dg-do compile }
|
||
|
!
|
||
|
! PR fortran/31253 -- ICE on invlid initialization expression
|
||
|
! Contributed by: Mikael Morin <mikael DOT morin AT tele2 DOT fr>
|
||
|
!
|
||
|
|
||
|
subroutine probleme(p)
|
||
|
real(kind=8), dimension(:) :: p
|
||
|
integer :: nx = size(p, 1) ! { dg-error "Deferred array" }
|
||
|
integer :: nix
|
||
|
|
||
|
nix = nx
|
||
|
end subroutine
|