gcc/testsuite/gfortran.fortran-torture/execute/internal_write.f90

   1 ! PR 14901
   2 ! Internal writes were appending CR after the last char
   3 ! written by the format statement.
   4        CHARACTER*10 A
   5        WRITE(A,'(3HGCC)')
   6        IF (A.NE.'GCC       ') THEN
   7 !         PRINT*,'A was not filled correctly by internal write'
   8 !         PRINT*,' A = ',A
   9           STOP 1
  10        ENDIF
  11        END