3 ! PR 38290: Procedure pointer assignment checking.
5 ! Test case found at http://de.wikibooks.org/wiki/Fortran:_Fortran_2003:_Zeiger
6 ! Adapted by Janus Weil <janus@gcc.gnu.org>
16 procedure( up
) , pointer :: pptr
17 procedure(isign
), pointer :: q
19 procedure(iabs
),pointer :: p1
20 procedure(f
), pointer :: p2
30 pptr
=> add
! { dg-error "is not a subroutine" }
34 print *, pptr() ! { dg-error "is not a function" }
43 p1
=> abs
! { dg-error "Type/kind mismatch in return value" }
44 p2
=> abs
! { dg-error "Type/kind mismatch in return value" }
47 p3
=> sin
! { dg-error "Type/kind mismatch in return value" }
53 integer, intent( in
) :: a
, b
58 integer,intent(in
) :: x