27 lines
406 B
Fortran
27 lines
406 B
Fortran
! { 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
|