1! { dg-do compile }
2! { dg-options "-O -Wall" }
3program main
4  real,allocatable:: a(:),b(:)
5
6   a(1)=2*b(1) ! { dg-warning "uninitialized" }
7
8end
9