From: Paul Thomas <pault@gcc.gnu.org>
Date: Sun, 3 Jan 2016 20:55:19 +0000 (+0000)
Subject: re PR fortran/65045 ([F08] ICE when using the same name for a block and a variable)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=25ccfccdf2c35b59fdf3c1e3f88f2f3ac914bafe;p=gcc.git

re PR fortran/65045 ([F08] ICE when using the same name for a block and a variable)

2016-01-03  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/65045
	* gfortran.dg/pr65045.f90: New test.

From-SVN: r232042
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 27a03a062c8..91499e3d6aa 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2016-01-03  Paul Thomas  <pault@gcc.gnu.org>
+
+	PR fortran/65045
+	* gfortran.dg/pr65045.f90: New test.
+
 2016-01-02  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gnat.dg/specs/debug1.ads: Delete.
diff --git a/gcc/testsuite/gfortran.dg/pr65045.f90 b/gcc/testsuite/gfortran.dg/pr65045.f90
new file mode 100644
index 00000000000..5b838d5fb03
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr65045.f90
@@ -0,0 +1,15 @@
+! { dg-do compile }
+!
+! Contributed by Walt Brainerd  <walt.brainerd@gmail.com>
+!
+real :: i = 9.9
+i:block
+ if (i>7.7) then ! { dg-error "is not appropriate for an expression" }
+     exit i
+   else          ! { dg-error "Unexpected ELSE statement" }
+     i = 2.2     ! { dg-error "is not a variable" }
+   end if        ! { dg-error "Expecting END BLOCK statement" }
+end block i      ! { dg-error "Expecting END PROGRAM statement" }
+print*,i         ! { dg-error "not appropriate for an expression" }
+end
+! { dg-excess-errors "Unexpected end of file" }