diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/proc_ptr_comp_28.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/proc_ptr_comp_28.f90 | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_28.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_28.f90 new file mode 100644 index 000000000..8d46fb5fc --- /dev/null +++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_28.f90 @@ -0,0 +1,16 @@ +! { dg-do compile } +! +! PR 47224: [F03] ICE with procedure pointer component +! +! Contributed by Martien Hulsen <m.a.hulsen@tue.nl> + + type coefficients_t + procedure (real), pointer, nopass :: vfunc + end type + + type(coefficients_t) :: coeff + real, dimension(3) :: x + + print *, abs ( coeff%vfunc ( x(:) ) ) + +end |