diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90 | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90 index 97e67e558ef..5dd67bfe2bb 100644 --- a/gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90 +++ b/gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90 @@ -8,7 +8,13 @@ contains function f() intrinsic :: sin - procedure(sin), pointer :: f + abstract interface + pure real function sin_interf(x) + real, intent(in) :: x + end function sin_interf + end interface + ! We cannot use "sin" directly as it is ELEMENTAL + procedure(sin_interf), pointer :: f f => sin end function f |