2 ! { dg-options "-fcray-pointer" }
8 pointer (ipt, array) ! { dg-error "integer" }
11 ! Multiple declarations for the same pointee
15 pointer (ipt2, array) ! { dg-error "multiple" }
18 ! Vector assignment to an assumed size array
24 array = 0 ! { dg-error "upper bound in the last dimension" }
28 pointer (ipt, ipt) ! { dg-error "POINTER attribute" }
31 ! duplicate array specs
33 pointer (ipt, array(7))
34 real array(10) ! { dg-error "Duplicate array" }
39 pointer (ipt, array(7)) ! { dg-error "Duplicate array" }
44 pointer ( ! { dg-error "variable name" }
45 pointer (ipt ! { dg-error "Expected" }
46 pointer (ipt, ! { dg-error "variable name" }
47 pointer (ipt,a1 ! { dg-error "Expected" }
48 pointer (ipt,a2), ! { dg-error "Expected" }
49 pointer (ipt,a3),( ! { dg-error "variable name" }
50 pointer (ipt,a4),(ipt2 ! { dg-error "Expected" }
51 pointer (ipt,a5),(ipt2, ! { dg-error "variable name" }
52 pointer (ipt,a6),(ipt2,a7 ! { dg-error "Expected" }
56 subroutine err8(array)
59 integer, pointer :: f90ptr
60 integer, target :: f90targ
61 pointer (ipt, array) ! { dg-error "DUMMY" }
62 pointer (dim, elt1) ! { dg-error "DIMENSION" }
63 pointer (f90ptr, elt2) ! { dg-error "POINTER" }
64 pointer (ipt, f90ptr) ! { dg-error "POINTER" }
65 pointer (f90targ, elt3) ! { dg-error "TARGET" }
66 pointer (ipt, f90targ) ! { dg-error "TARGET" }