1 2 3 4 5 6
! { dg-do compile } real x double precision dx data x/x'2ffde'/ ! { dg-error "Hexadecimal constant" } dx = x end