OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Paul Thomas 2016-01-03 20:55:19 +00:00
parent 0e8d41ab8f
commit 25ccfccdf2
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

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

15
gcc/testsuite/gfortran.dg/pr65045.f90 Normal file
View File

@ -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" }