! { dg-do compile } | |
! { dg-options "-O3 -Wall" } | |
module m | |
type t | |
integer, dimension(:), pointer :: list | |
end type | |
contains | |
subroutine s(n, p, Y) | |
integer, intent(in) :: n | |
type(t) :: p | |
real, dimension(:) :: Y | |
real, dimension(1:16) :: xx | |
if (n > 3) then | |
xx(1:n) = 0. | |
print *, xx(1:n) | |
else | |
xx(1:n) = Y(p%list(1:n)) ! { dg-bogus "uninitialized" } | |
print *, sum(xx(1:n)) | |
end if | |
end subroutine | |
end module |