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