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

Subversion Repositories openrisc

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

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


! { dg-do run }
! PR libfortran/31210
program test
  implicit none
  integer :: l = 0
  character(len=20) :: s
 
  write(s,'(A,I1)') foo(), 0
  if (trim(s) /= "0") call abort
 
contains
 
  function foo()
    character(len=l) :: foo
    foo = "XXXX"
  end function
 
end program test

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR libfortran/31210`
3			`program test`
4			`implicit none`
5			`integer :: l = 0`
6			`character(len=20) :: s`
7
8			`write(s,'(A,I1)') foo(), 0`
9			`if (trim(s) /= "0") call abort`
10
11			`contains`
12
13			`function foo()`
14			`character(len=l) :: foo`
15			`foo = "XXXX"`
16			`end function`
17
18			`end program test`

Browse

Tools

Subversion Repositories openrisc

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