URL https://opencores.org/ocsvn/scarts/scarts/trunk

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [internal_write.f90] - Blame information for rev 12

Details | Compare with Previous | View Log


! PR 14901
! Internal writes were appending CR after the last char
! written by the format statement.
       CHARACTER*10 A
       WRITE(A,'(3HGCC)')
       IF (A.NE.'GCC       ') THEN
!         PRINT*,'A was not filled correctly by internal write'
!         PRINT*,' A = ',A
          CALL ABORT
       ENDIF
       END

Line No.	Rev	Author	Line
1	12	jlechner	`! 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`

Browse

Tools

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [internal_write.f90] - Blame information for rev 12