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

Subversion Repositories openrisc

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

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


! { dg-do run }
  character(len=1) :: s
  character(len=0) :: s0
  s = " "
  s0 = ""
  call bar ("")
  call bar (s)
  call bar (s0)
  call bar (trim(s))
  call bar (min(s0,s0))
contains
  subroutine bar (s)
    character(len=*), optional :: s
    if (.not. present (S)) call abort
  end subroutine bar
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`character(len=1) :: s`
3			`character(len=0) :: s0`
4			`s = " "`
5			`s0 = ""`
6			`call bar ("")`
7			`call bar (s)`
8			`call bar (s0)`
9			`call bar (trim(s))`
10			`call bar (min(s0,s0))`
11			`contains`
12			`subroutine bar (s)`
13			`character(len=*), optional :: s`
14			`if (.not. present (S)) call abort`
15			`end subroutine bar`
16			`end`

Browse

Tools

Subversion Repositories openrisc

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