3 ! PR 39735: procedure pointer assignments: return value is not checked
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
8 procedure(real(4)), pointer :: p1
9 procedure(integer), pointer :: p2
10 procedure(sub), pointer :: p3
11 procedure(), pointer :: p4
12 procedure(real(8)),pointer :: p5
13 real(4), external, pointer :: p6
22 p1 => iabs ! { dg-error "Type/rank mismatch in function result" }
23 p1 => p2 ! { dg-error "Type/rank mismatch in function result" }
24 p1 => p5 ! { dg-error "Type/rank mismatch in function result" }
25 p6 => iabs ! { dg-error "Type/rank mismatch in function result" }
26 p4 => p2 ! { dg-error "is not a subroutine" }