re PR fortran/16433 (wrong hexadecimal constant warning)

PR fortran/16433 * gfortran.dg/pr16433.f: New test. From-SVN: r84515

re PR fortran/16433 (wrong hexadecimal constant warning)
PR fortran/16433 * gfortran.dg/pr16433.f: New test. From-SVN: r84515
0bbf5891 · Tobias Schlüter · Tobias Schlüter · 88199e7c · 0bbf5891 · 0bbf5891
Commit 0bbf5891 authored Jul 11, 2004 by Tobias Schlüter Committed by Tobias Schlüter Jul 11, 2004
Hide whitespace changes
Inline Side-by-side

Showing with 11 additions and 0 deletions

gcc/testsuite/ChangeLog
+5 -0

gcc/testsuite/gfortran.dg/pr16433.f
+6 -0

No files found.
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
+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

--- a/gcc/testsuite/gfortran.dg/pr16433.f
+++ b/gcc/testsuite/gfortran.dg/pr16433.f
+! { 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