From: Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Date: Sun, 11 Jul 2004 15:21:51 +0000 (+0200)
Subject: re PR fortran/16433 (wrong hexadecimal constant warning)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0bbf5891c10b86aa602c669d50f1e0ec9455eb56;p=gcc.git

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 20104dd0da8..b9946339503 100644
--- 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
index 00000000000..4a11881f62f
--- /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