2 ! Tests the fix for a further regression caused by the
3 ! fix for PR28788, as noted in reply #13 in the Bugzilla
4 ! entry by Martin Tee <aovb94@dsl.pipex.com>.
5 ! The problem was caused by contained, use associated
6 ! derived types with pointer components of a derived type
7 ! use associated in a sibling procedure, where both are
8 ! associated by an ONLY clause. This is the reporter's
17 TYPE (a
), POINTER :: m(:) => NULL ()
24 USE type_mod
, ONLY
: a
! failed
31 USE type_mod
, ONLY
: b
! failed
37 ! { dg-final { cleanup-modules "type_mod seg_mod" } }