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 "Interfaces don't match" }
34 print *, pptr() ! { dg-error "is not a function" }
43 p1 => abs ! { dg-error "Interfaces don't match" }
44 p2 => abs ! { dg-error "Interfaces don't match" }
47 p3 => sin ! { dg-error "Interfaces don't match" }
53 integer, intent( in ) :: a, b