This is a similar bug to TPR 20313, which suggests to me that the fix wasn’t properly done.
14.6 hangs as though stuck in some endless loop when trying to compile with the following code (no special options, just -c):
module ImageHeaders
type ImageHeader
contains
procedure, public :: PrintInfo
end type ImageHeader
contains
subroutine PrintInfo(self)
class(ImageHeader), intent(in) :: self
end subroutine PrintInfo
end module ImageHeaders
module ImageFiles
use ImageHeaders
type ImageFile
contains
procedure, public :: PrintInfo
end type ImageFile
contains
subroutine PrintInfo(self)
class(ImageFile), intent(in) :: self
end subroutine PrintInfo
end module ImageFiles
module ImagesCore
type :: Image
contains
procedure, public :: PrintInfo
end type Image
contains
subroutine WriteToImageFile(self,my_imagefile)
use ImageFiles
class(Image), intent(inout) :: self
class(ImageFile), intent(inout) :: my_imagefile
end subroutine WriteToImageFile
subroutine PrintInfo(self)
class(image), intent(in) :: self
end subroutine PrintInfo
end module ImagesCore