re PR fortran/16433 (wrong hexadecimal constant warning)

PR fortran/16433
* gfortran.dg/pr16433.f: New test.

From-SVN: r84515

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 20104dd0da811ffbc5cd7296c8063304bc9f70be..b9946339503a68b377d5c442193df26495a6a32e 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2004-07-11  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
+       PR fortran/16433
+       * gfortran.dg/pr16433.f: New test.
+
 2004-07-11  Joseph S. Myers  <jsm@polyomino.org.uk>
 
        PR tree-optimization/16437

diff --git a/gcc/testsuite/gfortran.dg/pr16433.f b/gcc/testsuite/gfortran.dg/pr16433.f
new file mode 100644 (file)
index 0000000..4a11881
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr16433.f
@@ -0,0 +1,6 @@
+! { 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