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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [contained2.f90] - Blame information for rev 801

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


! Program to check resolution of symbols with the same name
program contained2
   implicit none
   integer var1
 
   var1 = 42
   if (f1() .ne. 1) call abort
   call f2()
   if (var1 .ne. 42) call abort
contains
 
function f1 ()
   implicit none
   integer f1
   integer var1
   integer f2
 
   var1 = 1
   f2 = var1
   f1 = f2
end function
 
subroutine f2()
   implicit none
   if (f1() .ne. 1) call abort
end subroutine
 
end program

Line No.	Rev	Author	Line
1	695	jeremybenn	`! Program to check resolution of symbols with the same name`
2			`program contained2`
3			`implicit none`
4			`integer var1`
5
6			`var1 = 42`
7			`if (f1() .ne. 1) call abort`
8			`call f2()`
9			`if (var1 .ne. 42) call abort`
10			`contains`
11
12			`function f1 ()`
13			`implicit none`
14			`integer f1`
15			`integer var1`
16			`integer f2`
17
18			`var1 = 1`
19			`f2 = var1`
20			`f1 = f2`
21			`end function`
22
23			`subroutine f2()`
24			`implicit none`
25			`if (f1() .ne. 1) call abort`
26			`end subroutine`
27
28			`end program`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [contained2.f90] - Blame information for rev 801