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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [equiv_constraint_3.f90] - Blame information for rev 237

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


! { dg-do compile }
! PR20900 - USE associated variables cannot be equivalenced.
! Contributed by Joost VandeVondele 
MODULE TEST
 INTEGER :: I
END MODULE
! note 11.7
USE TEST, ONLY : K=>I
INTEGER :: L
EQUIVALENCE(K,L) ! { dg-error "conflicts with USE ASSOCIATED attribute" }
END
 
! { dg-final { cleanup-modules "TEST" } }

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do compile }`
2			`! PR20900 - USE associated variables cannot be equivalenced.`
3			`! Contributed by Joost VandeVondele`
4			`MODULE TEST`
5			`INTEGER :: I`
6			`END MODULE`
7			`! note 11.7`
8			`USE TEST, ONLY : K=>I`
9			`INTEGER :: L`
10			`EQUIVALENCE(K,L) ! { dg-error "conflicts with USE ASSOCIATED attribute" }`
11			`END`
12
13			`! { dg-final { cleanup-modules "TEST" } }`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [equiv_constraint_3.f90] - Blame information for rev 237