URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [pr20086.f90] - Blame information for rev 384

Details | Compare with Previous | View Log


! { dg-do run }
! { dg-options "-std=legacy" }
!
! PR 20086 - Missing characters in output with hollerith strings
      implicit none
      character*80 line
      write(line,2070)
      if (line.ne.'  stiffness reformed for this high step')call abort
      write(line,2090)
      if (line.ne.'  stiffness reformed for hello hello')call abort
      stop
 
 2070  format (2x,37hstiffness reformed for this high step)
 2090  format (2x,34hstiffness reformed for hello hello)
 
      end

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-std=legacy" }`
3			`!`
4			`! PR 20086 - Missing characters in output with hollerith strings`
5			`implicit none`
6			`character*80 line`
7			`write(line,2070)`
8			`if (line.ne.' stiffness reformed for this high step')call abort`
9			`write(line,2090)`
10			`if (line.ne.' stiffness reformed for hello hello')call abort`
11			`stop`
12
13			`2070 format (2x,37hstiffness reformed for this high step)`
14			`2090 format (2x,34hstiffness reformed for hello hello)`
15
16			`end`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [pr20086.f90] - Blame information for rev 384