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.dg/] [proc_ptr_10.f90] - Blame information for rev 325

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


! { dg-do run }
!
! PR fortran/37253
!
! Contributed by Dominique d'Humieres 
 
module myMod
 
  CONTAINS
 
  real function proc3( arg1 )
     integer :: arg1
     proc3 = arg1+7
  end function proc3
 
  subroutine proc4( arg1 )
     procedure(real), pointer :: arg1
     if (arg1(0)/=7) call abort()
  end subroutine proc4
 
end module myMod
 
program myProg
  use myMod
  PROCEDURE (real), POINTER :: p => NULL()
  p => proc3
  call proc4( p )
end program myProg
 
! { dg-final { cleanup-modules "myMod" } }

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`!`
3			`! PR fortran/37253`
4			`!`
5			`! Contributed by Dominique d'Humieres`
6
7			`module myMod`
8
9			`CONTAINS`
10
11			`real function proc3( arg1 )`
12			`integer :: arg1`
13			`proc3 = arg1+7`
14			`end function proc3`
15
16			`subroutine proc4( arg1 )`
17			`procedure(real), pointer :: arg1`
18			`if (arg1(0)/=7) call abort()`
19			`end subroutine proc4`
20
21			`end module myMod`
22
23			`program myProg`
24			`use myMod`
25			`PROCEDURE (real), POINTER :: p => NULL()`
26			`p => proc3`
27			`call proc4( p )`
28			`end program myProg`
29
30			`! { dg-final { cleanup-modules "myMod" } }`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [proc_ptr_10.f90] - Blame information for rev 325