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