mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
24 lines
393 B
Fortran
24 lines
393 B
Fortran
! { 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
|