1 ! { dg-do compile } 2 implicit none 3 logical b 4 b = 4Habcd ! { dg-warning "has undefined result" } 5 end 6 7! { dg-warning "Hollerith constant" "const" { target *-*-* } 4 } 8! { dg-warning "Conversion" "conversion" { target *-*-* } 4 } 9