URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [function_module_1.f90] - Blame information for rev 323

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


! This can fail because BB is not resolved correctly.
module M1
 
INTEGER p
 
CONTAINS
subroutine AA ()
   implicit NONE
   p = BB ()
 CONTAINS
   subroutine AA_1 ()
     implicit NONE
     integer :: i
     i = BB ()
   end subroutine
 
   function BB()
   integer :: BB
     BB = 1
   end function
end subroutine
 
function BB()
  implicit NONE
  integer :: BB
  BB = 2
end function
end module
 
program P1
  USE M1
  implicit none
  p = 0
  call AA ()
  if (p /= 1) call abort
end

Line No.	Rev	Author	Line
1	303	jeremybenn	`! This can fail because BB is not resolved correctly.`
2			`module M1`
3
4			`INTEGER p`
5
6			`CONTAINS`
7			`subroutine AA ()`
8			`implicit NONE`
9			`p = BB ()`
10			`CONTAINS`
11			`subroutine AA_1 ()`
12			`implicit NONE`
13			`integer :: i`
14			`i = BB ()`
15			`end subroutine`
16
17			`function BB()`
18			`integer :: BB`
19			`BB = 1`
20			`end function`
21			`end subroutine`
22
23			`function BB()`
24			`implicit NONE`
25			`integer :: BB`
26			`BB = 2`
27			`end function`
28			`end module`
29
30			`program P1`
31			`USE M1`
32			`implicit none`
33			`p = 0`
34			`call AA ()`
35			`if (p /= 1) call abort`
36			`end`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [function_module_1.f90] - Blame information for rev 323