27 Nov 2019 5:06
#24726
Run the following code
!ftn95$free
program main
CHARACTER*9000 :: CH
CHARACTER*1 C1
CH = ' '
DO I = 1, len(ch)
c1 = 'H'
CH(I:I) = C1
END DO
print*,'ch=',trim(ch)
end program
If you put a breakpoint on the print statement, then CH appears to be empty. When reducing the size of CH to (say) 90, then it shows it correctly. The print statement does show CH correctly in all cases.