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
This commit is contained in:
parent
48975b3de6
commit
a90638d430
2 changed files with 22 additions and 0 deletions
|
@ -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
|
||||
|
|
18
gcc/testsuite/gfortran.dg/dec_structure_14.f90
Normal file
18
gcc/testsuite/gfortran.dg/dec_structure_14.f90
Normal file
|
@ -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
|
Loading…
Add table
Reference in a new issue