156067Smarkm       ! { dg-do compile }
256067Smarkm       implicit none
356067Smarkm       logical b
4287208Sume       b = 4Habcd ! { dg-warning "has undefined result" }
5233294Sstas       end
6283160Sbapt
7287208Sume! { dg-warning "Hollerith constant" "const" { target *-*-* } 4 }
8275022Sbapt! { dg-warning "Conversion" "conversion" { target *-*-* } 4 }
956067Smarkm