gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/f2_edit_1.f90


1
2
3
4
5
6
7
8
9
10

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