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
17 if (.not
.associated (ptr
) ) STOP 1
18 if (any (ptr
.ne
."abc")) STOP 2
20 ptr
=> null () ! ptr points to 't' here.
25 if (.not
.associated (ptr
)) STOP 3
26 if (any (ptr
.ne
."lmn")) STOP 4
30 if (associated (ptr
)) STOP 5
36 character(l
), dimension(:), pointer :: p
37 character(l
), dimension(3) :: s
42 deallocate (p
) ! ptr was allocated in main.
47 if (.not
.associated (p
)) then
51 if (size (p
,1).ne
.3) STOP 6
52 if (any (p
.ne
."xyz")) STOP 7
57 end program oh_no_not_pr15908_again