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

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

gcc/fortran/ChangeLog

 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
 	PR fortran/78033
 	* array.c (gfc_match_array_constructor): Remove checkpointing

gcc/fortran/parse.c

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

gcc/testsuite/ChangeLog

 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
 	PR fortran/78033
 	* gfortran.dg/pr78033.f90: New test.

gcc/testsuite/gfortran.dg/pr77763.f90

+! { dg-do compile }
+! { dg-options "-fdec" }
+block data
+   structure /s1/
+   end structure
+end block data