assumed_charlen_function_4.f90 450 Bytes