pr16433.f

来自「Mac OS X 10.4.9 for x86 Source Code gcc」· F 代码 · 共 7 行

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