| ! { dg-do compile } |
| ! |
| ! PR 56385: [4.6/4.7/4.8 Regression] [OOP] ICE with allocatable function result in a procedure-pointer component |
| ! |
| ! Contributed by Vladimir Fuka <vladimir.fuka@gmail.com> |
| |
| implicit none |
| |
| type :: TGeometricShape |
| end type |
| |
| type :: TVolumeSourceBody |
| class(TGeometricShape), allocatable :: GeometricShape |
| procedure(scalar_flux_interface), pointer :: get_scalar_flux |
| end type |
| |
| abstract interface |
| function scalar_flux_interface(self) result(res) |
| import |
| real, allocatable :: res(:) |
| class(TVolumeSourceBody), intent(in) :: self |
| end function |
| end interface |
| |
| end |