1! { dg-do compile } 2! Tests the fix for PR29820, which was another problem with derived type 3! association. Not all siblings were being searched for identical types. 4! 5! Contributed by Harald Anlauf <anlauf@gmx.de> 6! 7module geo 8 type geodetic 9 real :: h 10 end type geodetic 11end module geo 12module gfcbug44 13 implicit none 14contains 15subroutine point ( gp) 16 use geo 17 type(geodetic), intent(out) :: gp 18 type(geodetic) :: gpx(1) 19 gp = gpx(1) 20end subroutine point 21subroutine plane () 22 use geo 23 type(geodetic) :: gp 24 call point ( gp) 25end subroutine plane 26end module gfcbug44 27