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/] [f2_edit_1.f90] - Diff between revs 154 and 816

Go to most recent revision | Only display areas with differences | Details | Blame | View Log

Rev 154 Rev 816 
! check F2.x edit descriptors
 
! check F2.x edit descriptors
 
! PR 14746
 
! PR 14746
 
      CHARACTER*15 LINE
 
      CHARACTER*15 LINE
 
      RCON21 = 9.
 
      RCON21 = 9.
 
      RCON22 = .9
 
      RCON22 = .9
 
      WRITE(LINE,'(F2.0,1H,,F2.1)')RCON21,RCON22
 
      WRITE(LINE,'(F2.0,1H,,F2.1)')RCON21,RCON22
 
      READ(LINE,'(F2.0,1X,F2.1)')XRCON21,XRCON22
 
      READ(LINE,'(F2.0,1X,F2.1)')XRCON21,XRCON22
 
      IF (RCON21.NE.XRCON21) CALL ABORT
 
      IF (RCON21.NE.XRCON21) CALL ABORT
 
      IF (RCON22.NE.XRCON22) CALL ABORT
 
      IF (RCON22.NE.XRCON22) CALL ABORT
 
      END
 
      END
 
 
 
 

powered by: WebSVN 2.1.0

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