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

gcc/testsuite/ChangeLog

+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.

gcc/testsuite/gfortran.dg/pr65045.f90

+! { 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" }