! { dg-do compile } | |
! | |
! PR 60952: [F03] Problem using "end" as a type bound procedure and contained procedures | |
! | |
! Contributed by tlcclt <Thomas.L.Clune@nasa.gov> | |
module A_mod | |
implicit none | |
type A | |
contains | |
procedure, nopass :: end | |
end type | |
contains | |
subroutine swap | |
contains | |
subroutine subSwap | |
end subroutine | |
end subroutine | |
integer function end() | |
end function | |
end module |