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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [substr_3.f] - Blame information for rev 708

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


! { dg-do run }
! Check that substrings behave correctly even when zero-sized
      implicit none
      character(len=10) :: s, t
      integer :: i, j
 
      s = "abcdefghij"
      t(:10) = s(1:)
      s(16:15) = "foo"
      s(0:-1) = "foo"
      if (s /= t) call abort
      end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! Check that substrings behave correctly even when zero-sized`
3			`implicit none`
4			`character(len=10) :: s, t`
5			`integer :: i, j`
6
7			`s = "abcdefghij"`
8			`t(:10) = s(1:)`
9			`s(16:15) = "foo"`
10			`s(0:-1) = "foo"`
11			`if (s /= t) call abort`
12			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [substr_3.f] - Blame information for rev 708