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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [contained_equivalence_1.f90] - Blame information for rev 149

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


! { dg-do run }
! This program tests that equivalence only associates variables in
! the same scope.
!
! provided by Paul Thomas - pault@gcc.gnu.org
!
program contained_equiv
  real a
  a = 1.0
  call foo ()
  if (a.ne.1.0) call abort ()
contains
  subroutine foo ()
    real b
    equivalence (a, b)
    b = 2.0
  end subroutine foo
end program contained_equiv

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do run }`
2			`! This program tests that equivalence only associates variables in`
3			`! the same scope.`
4			`!`
5			`! provided by Paul Thomas - pault@gcc.gnu.org`
6			`!`
7			`program contained_equiv`
8			`real a`
9			`a = 1.0`
10			`call foo ()`
11			`if (a.ne.1.0) call abort ()`
12			`contains`
13			`subroutine foo ()`
14			`real b`
15			`equivalence (a, b)`
16			`b = 2.0`
17			`end subroutine foo`
18			`end program contained_equiv`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [contained_equivalence_1.f90] - Blame information for rev 149