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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! Fallout from the patch for PR 14771
! Testcase by Erik Zeek
program test
    call bob(5)
contains
    subroutine bob(n)
        integer, intent(in) :: n
        character(len=n) :: temp1
        character(len=(n)) :: temp2 ! Fails here
    end subroutine bob
end program test

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! Fallout from the patch for PR 14771`
3			`! Testcase by Erik Zeek`
4			`program test`
5			`call bob(5)`
6			`contains`
7			`subroutine bob(n)`
8			`integer, intent(in) :: n`
9			`character(len=n) :: temp1`
10			`character(len=(n)) :: temp2 ! Fails here`
11			`end subroutine bob`
12			`end program test`

Browse

Tools

Subversion Repositories openrisc

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