2 ! Tests the fix for PR28630, in which a contained,
3 ! derived type function caused an ICE if its definition
4 ! was both host and use associated.
6 ! Contributed by Mark Hesselink <mhesseli@alumni.caltech.edu>
17 FUNCTION bar (x
) RESULT(r
)
26 LOGICAL FUNCTION foobar (x
)
33 ! { dg-final { cleanup-modules "types foo" } }