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

re PR fortran/77763 (ICE in parse_struct_map, at fortran/parse.c:3064)

Browse Source 
2016-10-23  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/77763
	* parse.c (parse_spec): Allow STRUCTURE in BLOCK DATA.  Sort
	case labels.

2016-10-23  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/77763
	* gfortran.dg/pr77763.f90

From-SVN: r241454
This commit is contained in:
Steven G. Kargl 2016-10-23 21:26:44 +00:00
parent d94c476c36
commit 0804124b9b
4 changed files with 23 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2016-10-23 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/77763
* parse.c (parse_spec): Allow STRUCTURE in BLOCK DATA. Sort
case labels.
2016-10-23 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/54730

11
gcc/fortran/parse.c
View File

@ -3588,17 +3588,18 @@ loop:
/* Fortran 2008, C1116. */
switch (st)
{
case ST_DATA_DECL:
case ST_ATTR_DECL:
case ST_COMMON:
case ST_DATA:
case ST_TYPE:
case ST_DATA_DECL:
case ST_DERIVED_DECL:
case ST_END_BLOCK_DATA:
case ST_ATTR_DECL:
case ST_EQUIVALENCE:
case ST_PARAMETER:
case ST_IMPLICIT:
case ST_IMPLICIT_NONE:
case ST_DERIVED_DECL:
case ST_PARAMETER:
case ST_STRUCTURE_DECL:
case ST_TYPE:
case ST_USE:
break;

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2016-10-23 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/77763
* gfortran.dg/pr77763.f90
2016-10-23 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/54730

6
gcc/testsuite/gfortran.dg/pr77763.f90 Normal file
View File

@ -0,0 +1,6 @@
! { dg-do compile }
! { dg-options "-fdec" }
block data
structure /s1/
end structure
end block data