| ! { dg-do compile } | |
| ! | |
| ! PR 46841: [F03] ICE on allocating array of procedure pointers | |
| ! | |
| ! Contributed by Martien Hulsen <m.a.hulsen@tue.nl> | |
| type vfunc_p | |
| procedure (dum_vfunc), pointer, nopass :: p => null() | |
| end type vfunc_p | |
| type(vfunc_p), allocatable, dimension(:) :: vfunc1 | |
| allocate(vfunc1(10)) | |
| contains | |
| function dum_vfunc () | |
| real, dimension(2) :: dum_vfunc | |
| dum_vfunc = 0 | |
| end function dum_vfunc | |
| end |