diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/proc_ptr_result_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/proc_ptr_result_1.f90 | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_result_1.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_result_1.f90 index a7ea21821d7..4a8020e35b8 100644 --- a/gcc/testsuite/gfortran.dg/proc_ptr_result_1.f90 +++ b/gcc/testsuite/gfortran.dg/proc_ptr_result_1.f90 @@ -171,7 +171,13 @@ contains end function function l() - procedure(iabs),pointer :: l + ! we cannot use iabs directly as it is elemental + abstract interface + pure function interf_iabs(x) + integer, intent(in) :: x + end function interf_iabs + end interface + procedure(interf_iabs),pointer :: l integer :: i l => iabs if (l(-11)/=11) call abort() |