pgfortran 14.6 bug - stuck in endless loop?

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

Thanks rohou. I’ve added TPR#20642 to address this additional issue.

Best Regards,
Mat

TPR 20642 - User code causes compilation hang

has been fixed in the current 14.9 release.

thanks,
dave