1! { dg-do run } 2! PR70592 dynamically-allocated character array 3! Contributed by Peter Knowles <KnowlesPJ@Cardiff.ac.uk> 4! 5PROGRAM main 6 character(len=7) :: res 7 CHARACTER(len=:), DIMENSION(:), POINTER :: cp 8 INTEGER :: i 9 ALLOCATE(CHARACTER(len=1) :: cp(1:6)) 10 if (SIZE(cp) /= 6 .or. LBOUND(cp,1) /= 1 .or. UBOUND(cp,1) /= 6) call abort() 11 cp(1)='1' 12 cp(2)='2' 13 cp(3)='3' 14 cp(4)='4' 15 cp(5)='5' 16 cp(6)='6' 17 write (res, *) cp 18 if (res /= ' 123456') call abort() 19END PROGRAM main 20