PR rtl-optimization/82913
[official-gcc.git] / gcc / testsuite / gfortran.fortran-torture / execute / internal_write.f90
blob1e492977b0677b67b032d14d147317cb18b3defb
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