1! { dg-do compile } 2 real x 3 double precision dx 4 data x/x'2ffde'/ ! { dg-warning "Hexadecimal constant | used to initialize non-integer" } 5 dx = x ! { dg-bogus "exadecimal constant" "Hex constant where there is none" } 6 end 7