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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [char_allocation_1.f90] - Blame information for rev 581

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


! PR fortran/31974
! { dg-do run }
  subroutine foo (n)
    integer :: n
    character (len = n) :: v(n)
    v = ''
    if (any (v /= '')) call abort
  end subroutine foo
 
  call foo(7)
  end

Line No.	Rev	Author	Line
1	302	jeremybenn	`! PR fortran/31974`
2			`! { dg-do run }`
3			`subroutine foo (n)`
4			`integer :: n`
5			`character (len = n) :: v(n)`
6			`v = ''`
7			`if (any (v /= '')) call abort`
8			`end subroutine foo`
9
10			`call foo(7)`
11			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [char_allocation_1.f90] - Blame information for rev 581