| ! { dg-do compile } | |
| ! | |
| ! PR 48706: Type extension inside subroutine | |
| ! | |
| ! Contributed by Tobias Burnus <burnus@gcc.gnu.org> | |
| module mod_diff_01 | |
| implicit none | |
| type :: foo | |
| end type | |
| contains | |
| subroutine create_ext | |
| type, extends(foo) :: foo_e | |
| end type | |
| end subroutine | |
| end module | |
| program diff_01 | |
| use mod_diff_01 | |
| implicit none | |
| call create_ext() | |
| end program |