gcc/testsuite/gfortran.dg/typebound_proc_34.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 60952: [F03] Problem using "end" as a type bound procedure and contained procedures
   4 !
   5 ! Contributed by tlcclt <Thomas.L.Clune@nasa.gov>
   6
   7 module A_mod
   8   implicit none
   9
  10   type A
  11   contains
  12     procedure, nopass :: end
  13   end type
  14
  15 contains
  16
  17   subroutine swap
  18   contains
  19     subroutine subSwap
  20     end subroutine
  21   end subroutine
  22
  23   integer function end()
  24   end function
  25
  26 end module