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/] [equiv_constraint_3.f90] - Blame information for rev 437

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	302	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_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [equiv_constraint_3.f90] - Blame information for rev 437