gcc/testsuite/gfortran.dg/dec_structure_14.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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