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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [large_unit_1.f90] - Rev 551

Go to most recent revision | Compare with Previous | Blame | View Log

! { dg-do run }
! { dg-shouldfail "Unit number in I/O statement too large" }
! PR31201  Unit number in I/O statement too large
! Test case from PR
      integer(kind=8)  :: k= 2_8**36 + 10
      integer(kind=4)  :: j= 10
      logical  ex,op
      INQUIRE(unit=k, exist=ex,opened=op)
      print *, ex, op
      IF (ex) THEN
         OPEN(unit=k)
         INQUIRE(unit=j, opened=op)
         IF (op) CALL ABORT()
      ENDIF
      print *, k
      close(k)
      end

Go to most recent revision | Compare with Previous | Blame | View Log

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [large_unit_1.f90] - Rev 551