+
−       ! { dg-do run }
+
−       ! Program to test Hollerith constant.
+
−       Program test
+
−       implicit none
+
−       integer i,j
+
−       real r, x, y
+
−       parameter (i = 4h1234)
+
−       parameter (r = 4hdead)
+
−       parameter (y = 4*r)
+
−       parameter (j = selected_real_kind (i))
+
−       x = 4H1234 
+
−       x = sin(r)
+
−       x = x * r
+
−       x = x / r
+
−       x = x + r
+
−       x = x - r
+
−       end
+
−! { dg-warning "Hollerith constant" "const" { target *-*-* } 7 }
+
−! { dg-warning "Conversion" "conversion" { target *-*-* } 7 }
+
−
+
−! { dg-warning "Hollerith constant" "const" { target *-*-* } 8 }
+
−! { dg-warning "Conversion" "conversion" { target *-*-* } 8 }
+
−
+
−! { dg-warning "Hollerith constant" "const" { target *-*-* } 11 }
+
−! { dg-warning "Conversion" "conversion" { target *-*-* } 11 }
+
−