2 ! Tests the patch for PR 29641, in which an ICE would occur with
3 ! the ordering of USE statements below.
5 ! Contributed by Jakub Jelinek <jakub@gcc.gnu.org>
17 type(T), pointer :: foo
23 use B ! The order here is important
24 use A ! If use A comes before use B, it works
34 print *, associated (x)
36 print *, associated (x)
38 ! { dg-final { cleanup-modules "A B" } }