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] - Blame information for rev 551

Go to most recent revision | Details | Compare with Previous | 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

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! { dg-shouldfail "Unit number in I/O statement too large" }`
3			`! PR31201 Unit number in I/O statement too large`
4			`! Test case from PR`
5			`integer(kind=8) :: k= 2_8**36 + 10`
6			`integer(kind=4) :: j= 10`
7			`logical ex,op`
8			`INQUIRE(unit=k, exist=ex,opened=op)`
9			`print *, ex, op`
10			`IF (ex) THEN`
11			`OPEN(unit=k)`
12			`INQUIRE(unit=j, opened=op)`
13			`IF (op) CALL ABORT()`
14			`ENDIF`
15			`print *, k`
16			`close(k)`
17			`end`

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] - Blame information for rev 551