19990905-0.f: Remove XFAIL...
2005-09-09 Paul Thomas <pault@gcc.gnu.org> * gfortran.dg/g77/19990905-0.f: Remove XFAIL, rearrange equivalences and add comment to connect the test with the PR. - forgotten in previous. From-SVN: r104061
This commit is contained in:
parent
30aabb86ef
commit
41306174c8
|
@ -1,8 +1,12 @@
|
|||
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 (m,iarray(100)), (n,iarray(200))
|
||||
real a(m,n) ! { dg-bogus "Variable 'm' cannot appear" "Variable 'm' cannot appear" { xfail *-*-* } } PR 16511
|
||||
equivalence (n,iarray(200))
|
||||
real a(m,n)
|
||||
a(1,1) = a(2,2)
|
||||
end
|
||||
|
|
Loading…
Reference in New Issue