From: Jim MacArthur <jim.macarthur@codethink.co.uk>
Date: Wed, 14 Sep 2016 12:13:03 +0000 (+0000)
Subject: dec_structure_14.f90: New testcase.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a90638d430e1bb7578debbc27e5ff05a3f0c9385;p=gcc.git

dec_structure_14.f90: New testcase.

2016-09-13  Jim MacArthur  <jim.macarthur@codethink.co.uk>

	* gcc/testsuite/gfortran.dg/dec_structure_14.f90: New testcase.

From-SVN: r240134
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 36e57c6edc1..e4643717a6a 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2016-09-13  Jim MacArthur  <jim.macarthur@codethink.co.uk>
+
+	* gfortran.dg/dec_structure_14.f90: New testcase.
+
 2016-09-14  Jakub Jelinek  <jakub@redhat.com>
 
 	PR sanitizer/68260
diff --git a/gcc/testsuite/gfortran.dg/dec_structure_14.f90 b/gcc/testsuite/gfortran.dg/dec_structure_14.f90
new file mode 100644
index 00000000000..4e271b7390f
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/dec_structure_14.f90
@@ -0,0 +1,18 @@
+  ! { dg-do "compile" }
+  ! { dg-options "-fdec-structure" }
+  !
+  ! Test that structures inside a common block do not require the
+  ! SEQUENCE attribute, as derived types do.
+  !
+
+common var
+
+structure /s/
+  integer i
+  integer j
+  real r
+end structure
+
+record /s/ var
+
+end