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
)