gcc/testsuite/gfortran.dg/finalize_30.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Wsurprising" }
   3 !
   4 ! PR 58175: [OOP] Incorrect warning message on scalar finalizer
   5 !
   6 ! Contributed by Andrew Benson <abensonca@gmail.com>
   7
   8 module ct
   9   type :: a
  10    contains
  11      final :: aD
  12   end type
  13   type, extends(a) :: a1
  14   end type
  15 contains
  16   subroutine aD(self)
  17     type(a), intent(inout) :: self
  18   end subroutine
  19 end module
  20
  21 program test
  22   use ct
  23 end