2 ! This tests the fix for pr15809 in which automatic character length,
3 ! dummy, pointer arrays were broken.
5 ! contributed by Paul Thomas <pault@gcc.gnu.org>
8 character(12), dimension(2), target
:: t
11 program oh_no_not_pr15908_again
12 character(12), dimension(:), pointer :: ptr
15 if (.not
.associated (ptr
) ) call abort ()
16 if (any (ptr
.ne
."abc")) call abort ()
18 ptr
=> null () ! ptr points to 't' here.
23 if (.not
.associated (ptr
)) call abort ()
24 if (any (ptr
.ne
."lmn")) call abort ()
28 if (associated (ptr
)) call abort ()
34 character(l
), dimension(:), pointer :: p
35 character(l
), dimension(3) :: s
40 deallocate (p
) ! ptr was allocated in main.
45 if (.not
.associated (p
)) then
49 if (size (p
,1).ne
.3) call abort ()
50 if (any (p
.ne
."xyz")) call abort ()
55 end program oh_no_not_pr15908_again
57 ! { dg-final { cleanup-modules "global" } }