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