2 ! This checks that the fix for PR19362 has not broken gfortran
3 ! in respect of.references allowed by 4.4.2.
5 ! Contributed by Paul Thomas <pault@gcc.gnu.org>
17 type (nonseq_type1
), save :: ns1
21 use global
, only
: seq_type2
=>seq_type1
, nonseq_type1
, ns1
23 ! Host non-sequence types
24 type :: different_type
26 end type different_type
33 type (seq_type2
) :: t1
34 type (different_type
) :: dt1
36 type (nonseq_type1
) :: ns2
37 type (same_type
) :: st1
41 dt1
= different_type (43)
52 use global
, only
: seq_type3
=>seq_type1
59 type :: different_type
61 end type different_type
67 ! Host association of renamed type.
69 ! Locally declared version of the same thing.
71 ! USE associated renamed type.
75 type (different_type
) :: dt2
76 type (same_type
) :: st2
82 print *, x
, y
, z
, dt2
, st2
, ns2
, ns1
86 ! { dg-final { cleanup-modules "global" } }