Lines Matching defs:cp
7 CHARACTER(len=:), DIMENSION(:), POINTER :: cp9 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