gcc/testsuite/gfortran.dg/used_types_13.f90

   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 !
   7 module geo
   8   type geodetic
   9      real :: h
  10   end type geodetic
  11 end module geo
  12 module gfcbug44
  13   implicit none
  14 contains
  15 subroutine point ( gp)
  16   use geo
  17   type(geodetic),  intent(out) :: gp
  18   type(geodetic) :: gpx(1)
  19   gp = gpx(1)
  20 end subroutine point
  21 subroutine plane ()
  22   use geo
  23   type(geodetic)  :: gp
  24   call point ( gp)
  25 end subroutine plane
  26 end module gfcbug44
  27 ! { dg-final { cleanup-modules "geo gfcbug44" } }
  28