2 ! PR70592 dynamically-allocated character array
3 ! Contributed by Peter Knowles <KnowlesPJ@Cardiff.ac.uk>
6 character(len
=7) :: res
7 CHARACTER(len
=:), DIMENSION(:), POINTER :: cp
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()
18 if (res
/= ' 123456') call abort()