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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [7388.f] - Blame information for rev 823

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


C { dg-do run }
C { dg-options "-fbounds-check" }
      character*25 buff(0:10)
      character*80 line
      integer i, m1, m2
      i  = 1
      m1 = 1
      m2 = 7
      buff(i) = 'tcase0a'
      write(line,*) buff(i)(m1:m2)
      if (line .ne. ' tcase0a') call abort
      end

Line No.	Rev	Author	Line
1	149	jeremybenn	`C { dg-do run }`
2			`C { dg-options "-fbounds-check" }`
3			`character*25 buff(0:10)`
4			`character*80 line`
5			`integer i, m1, m2`
6			`i = 1`
7			`m1 = 1`
8			`m2 = 7`
9			`buff(i) = 'tcase0a'`
10			`write(line,*) buff(i)(m1:m2)`
11			`if (line .ne. ' tcase0a') call abort`
12			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [7388.f] - Blame information for rev 823