blob: 07d09596598ff15b1570de19bea4978dde76a233 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
! { dg-do compile }
!
! PR 64173: [F03] ICE involving procedure pointer component
!
! Contributed by Rich Townsend <townsend@astro.wisc.edu>
implicit none
type :: r_magnus_ivp_t
integer, allocatable :: jc
procedure(abscissa_), nopass, pointer :: abscissa_p
end type
abstract interface
function abscissa_ () result (x)
real, allocatable :: x(:)
end function
end interface
contains
function doinit () result (iv)
type(r_magnus_ivp_t) :: iv
end function
end
|
