URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [19990905-0.f] - Blame information for rev 302

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


c { dg-do compile }
* =foo0.f in Burley's g77 test suite.
! Used to give "Variable 'm' cannot appear" "Variable 'm' cannot appear"
! after REAL a(m,n), as described in PR 16511.
!
      subroutine sub(a)
      equivalence (m,iarray(100))
      common /info/ iarray(1000)
      equivalence (n,iarray(200))
      real a(m,n)
      a(1,1) = a(2,2)
      end

Line No.	Rev	Author	Line
1	302	jeremybenn	`c { dg-do compile }`
2			`* =foo0.f in Burley's g77 test suite.`
3			`! Used to give "Variable 'm' cannot appear" "Variable 'm' cannot appear"`
4			`! after REAL a(m,n), as described in PR 16511.`
5			`!`
6			`subroutine sub(a)`
7			`equivalence (m,iarray(100))`
8			`common /info/ iarray(1000)`
9			`equivalence (n,iarray(200))`
10			`real a(m,n)`
11			`a(1,1) = a(2,2)`
12			`end`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [19990905-0.f] - Blame information for rev 302