2 ! tests basic block data functionality
3 ! we didn't allow multiple block data program units
17 common j ! { dg-warning "blank COMMON but initialization is only allowed in named common" }
26 if (any(x /= 1.)) call abort ()
27 if (y /= 1. .or. i /= 1) call abort ()