blob: d17f9ae40cf9827d41528a62a907cf03c7468ebf [file] [log] [blame]
! { dg-do compile }
! { dg-options "-Wsurprising" }
implicit none
logical b
b = 4Habcd ! { dg-warning "has undefined result" }
end
! { dg-warning "Hollerith constant" "const" { target *-*-* } 5 }
! { dg-warning "Conversion" "conversion" { target *-*-* } 5 }