blob: 4c52bd7192e5fba4c54d408ace1e00540fe3c7e6 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-O -Wall" }
program main
real,allocatable:: a(:),b(:)
a(1)=2*b(1) ! { dg-warning "uninitialized" }
end