2 ! Tests the fix for PR29820, which was another problem with derived type
3 ! association. Not all siblings were being searched for identical types.
5 ! Contributed by Harald Anlauf <anlauf@gmx.de>
15 subroutine point ( gp
)
17 type(geodetic
), intent(out
) :: gp
18 type(geodetic
) :: gpx(1)
27 ! { dg-final { cleanup-modules "geo gfcbug44" } }