gcc/testsuite/gfortran.dg/pr41126.f90

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