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
12