gcc/testsuite/gfortran.dg/pr16433.f

   1 ! { dg-do-compile }
   2       real x
   3       double precision dx
   4       x = x'2ffde' ! { dg-warning "exadecimal constant" "Hex constant can't begin with x" }
   5       dx = x  ! { dg-bogus "exadecimal constant" "Hex constant where there is none" }
   6       end