| ! { 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 |