2 ! { dg-options "-std=legacy" }
4 program char_pointer_dummy
5 ! Test character pointer dummy arguments, required
6 ! to fix PR16939 and PR18689
7 ! Provided by Paul Thomas pault@gcc.gnu.org
10 character*4, pointer :: c1
11 character*4, pointer :: c2(:)
13 ! Check that we have not broken non-pointer characters.
25 if (cc1
/= "wxyz") STOP 1
28 character*4, pointer :: sc1
29 if (sc1
/= "wxyz") STOP 2
32 character*4, pointer :: ac1(:)
33 if (ac1(1) /= "wxyz") STOP 3
35 end program char_pointer_dummy