This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[Committed] PR fortran/77763 -- STRUCTURE in BLOCK DATA
- From: Steve Kargl <sgk at troutmask dot apl dot washington dot edu>
- To: fortran at gcc dot gnu dot org, gcc-patches at gcc dot gnu dot org
- Date: Sun, 23 Oct 2016 14:30:04 -0700
- Subject: [Committed] PR fortran/77763 -- STRUCTURE in BLOCK DATA
- Authentication-results: sourceware.org; auth=none
I've committed the following patch. Both Oracle's manual
and DVF's manual indicate that STRUCTURE can appear in a
BLOCK DATA statement. While I was here, I sorted the
case labels.
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
Index: gcc/fortran/parse.c
===================================================================
--- gcc/fortran/parse.c (revision 241451)
+++ gcc/fortran/parse.c (working copy)
@@ -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;
Index: gcc/testsuite/gfortran.dg/pr77763.f90
===================================================================
--- gcc/testsuite/gfortran.dg/pr77763.f90 (nonexistent)
+++ gcc/testsuite/gfortran.dg/pr77763.f90 (working copy)
@@ -0,0 +1,6 @@
+! { dg-do compile }
+! { dg-options "-fdec" }
+block data
+ structure /s1/
+ end structure
+end block data
--
Steve