2 ! Program to test Hollerith constant.
10 parameter (j = selected_real_kind (i))
18 ! { dg-warning "Hollerith constant" "const" { target *-*-* } 7 }
19 ! { dg-warning "Conversion" "conversion" { target *-*-* } 7 }
21 ! { dg-warning "Hollerith constant" "const" { target *-*-* } 8 }
22 ! { dg-warning "Conversion" "conversion" { target *-*-* } 8 }
24 ! { dg-warning "Hollerith constant" "const" { target *-*-* } 11 }
25 ! { dg-warning "Conversion" "conversion" { target *-*-* } 11 }