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