2 program char_pointer_dummy
\r
3 ! Test character pointer dummy arguments, required
\r
4 ! to fix PR16939 and PR18689
\r
5 ! Provided by Paul Thomas pault@gcc.gnu.org
\r
8 character*4, pointer :: c1
\r
9 character*4, pointer :: c2(:)
\r
10 allocate (c1, c2(1))
\r
11 ! Check that we have not broken non-pointer characters.
\r
21 subroutine foo (cc1)
\r
23 if (cc1 /= "wxyz") call abort ()
\r
25 subroutine sfoo (sc1)
\r
26 character*4, pointer :: sc1
\r
27 if (sc1 /= "wxyz") call abort ()
\r
29 subroutine afoo (ac1)
\r
30 character*4, pointer :: ac1(:)
\r
31 if (ac1(1) /= "wxyz") call abort ()
\r
33 end program char_pointer_dummy