OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [t_edit.f90] - Diff between revs 154 and 816

Only display areas with differences | Details | Blame | View Log

Rev 154 Rev 816
!pr 14897  T edit descriptor broken
!pr 14897  T edit descriptor broken
      implicit none
      implicit none
      character*80 line
      character*80 line
      WRITE(line,'(T5,A,T10,A,T15,A)')'AA','BB','CC'
      WRITE(line,'(T5,A,T10,A,T15,A)')'AA','BB','CC'
      if (line.ne.'    AA   BB   CC    ') call abort
      if (line.ne.'    AA   BB   CC    ') call abort
      WRITE(line,'(5HAAAAA,TL4,4HABCD)')
      WRITE(line,'(5HAAAAA,TL4,4HABCD)')
      if (line.ne.'AABCD') call abort
      if (line.ne.'AABCD') call abort
      END
      END
 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.