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          CALL ABORT
10       ENDIF
11       END
12