2 ! This tests the patch for PR16861.
4 ! Contributed by Paul Thomas <pault@gcc.gnu.org>
14 integer, dimension(i) :: j
19 integer, dimension(i) :: k
25 use foo !This used to cause an ICE
31 integer, dimension(3) :: l = 0
36 if (all (l.ne.(/84,42,0/))) call abort ()
37 end program testfoobar
39 ! { dg-final { cleanup-modules "foo bar foobar" } }