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 36e57c6edc157d17f1c2dc0216b19c8f167ad64a..e4643717a6ac54db2d1ad8e9dbd128e180e35aec 100644 (file)
--- 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 (file)
index 0000000..4e271b7
--- /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