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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [substr_3.f] - Blame information for rev 308

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	302	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_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [substr_3.f] - Blame information for rev 308