URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [internal_write.f90] - Rev 304
Go to most recent revision | Compare with Previous | Blame | 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
Go to most recent revision | Compare with Previous | Blame | View Log