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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_exhaust.f90] - Blame information for rev 823

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


! { dg-do run }
! PR27304 Test running out of data descriptors with data remaining.
! Derived from case in PR.  Submitted by Jerry DeLisle .
      program test
      implicit none
      integer :: n
      n = 1
      write(10,"(i7,(' abcd'))", err=10) n, n
      call abort()
 10   close(10, status="delete")
      end program test

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do run }`
2			`! PR27304 Test running out of data descriptors with data remaining.`
3			`! Derived from case in PR. Submitted by Jerry DeLisle .`
4			`program test`
5			`implicit none`
6			`integer :: n`
7			`n = 1`
8			`write(10,"(i7,(' abcd'))", err=10) n, n`
9			`call abort()`
10			`10 close(10, status="delete")`
11			`end program test`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_exhaust.f90] - Blame information for rev 823