1! { dg-do compile } 2SUBROUTINE write_cputime( checkpoint ) 3 CHARACTER(LEN=*), INTENT(IN) :: checkpoint 4 CHARACTER(LEN=LEN_TRIM(checkpoint)+7) :: string1 5 string1 = ADJUSTL(string1) 6END SUBROUTINE write_cputime 7