diff options
author | mrs <mrs@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-12-13 17:31:30 +0000 |
---|---|---|
committer | mrs <mrs@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-12-13 17:31:30 +0000 |
commit | 3dd775fb895cffb77ac74098a74e9fca28edaf79 (patch) | |
tree | f68062e9cfe09046337dc976767a5f7938462868 /gcc/testsuite/gfortran.dg/proc_ptr_11.f90 | |
parent | 84014c53e113ab540befd1eceb8598d28a323ab3 (diff) | |
parent | 34a5d2a56d4b0a0ea74339c985c919aabfc530a4 (diff) | |
download | gcc-3dd775fb895cffb77ac74098a74e9fca28edaf79.tar.gz |
Merge in trunk.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/wide-int@205966 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/proc_ptr_11.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/proc_ptr_11.f90 | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_11.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_11.f90 index bee73f45213..61921e78ad0 100644 --- a/gcc/testsuite/gfortran.dg/proc_ptr_11.f90 +++ b/gcc/testsuite/gfortran.dg/proc_ptr_11.f90 @@ -7,16 +7,23 @@ program bsp implicit none - + intrinsic :: isign, iabs abstract interface subroutine up() end subroutine up + ! As intrinsics but not elemental + pure integer function isign_interf(a, b) + integer, intent(in) :: a, b + end function isign_interf + pure integer function iabs_interf(x) + integer, intent(in) :: x + end function iabs_interf end interface procedure( up ) , pointer :: pptr - procedure(isign), pointer :: q + procedure(isign_interf), pointer :: q - procedure(iabs),pointer :: p1 + procedure(iabs_interf),pointer :: p1 procedure(f), pointer :: p2 pointer :: p3 @@ -48,13 +55,13 @@ program bsp contains - function add( a, b ) + pure function add( a, b ) integer :: add integer, intent( in ) :: a, b add = a + b end function add - integer function f(x) + pure integer function f(x) integer,intent(in) :: x f = 317 + x end function |