3 ! PR 45290: [F08] pointer initialization
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
15 integer, pointer :: p1
=> i
16 integer, pointer :: p2
=> p1
! { dg-error "must have the TARGET attribute" }
17 integer, pointer :: p3
=> x
%p
! { dg-error "must have the TARGET attribute" }
18 integer, pointer :: p4
=> x
%i
19 integer, pointer :: p5
=> u
! { dg-error "has no IMPLICIT type" }
26 procedure(s
), pointer, nopass
:: ppc
29 procedure(s
), pointer :: pp1
=> s
30 procedure(s
), pointer :: pp2
=> pp1
! { dg-error "may not be a procedure pointer" }
31 procedure(s
), pointer :: pp3
=> t
%ppc
! { dg-error "Symbol 't' at .1. has no IMPLICIT type" }