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