------- Comment #2 from pinskia at gcc dot gnu dot org 2006-11-13 20:03 -------
Here is a shorter testcase:
module geo
type geodetic
real :: h
end type geodetic
end module geo
module gfcbug44
implicit none
contains
subroutine point ( gp)
use geo
type(geodetic), intent(out) :: gp
type(geodetic) :: gpx(1)
gp = gpx(1)
end subroutine point
subroutine plane ()
use geo
type(geodetic) :: gp
call point ( gp)
end subroutine plane
end module gfcbug44
--
pinskia at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
Last reconfirmed|0000-00-00 00:00:00 |2006-11-13 20:03:19
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29820
