blob: b93a3d5064511a98a9d3f0bdad1d22262bd711e3 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-Wsurprising" }
!
! PR 58175: [OOP] Incorrect warning message on scalar finalizer
!
! Contributed by Andrew Benson <abensonca@gmail.com>
module ct
type :: a
contains
final :: aD
end type
type, extends(a) :: a1
end type
contains
subroutine aD(self)
type(a), intent(inout) :: self
end subroutine
end module
program test
use ct
end