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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [ptr-func-1.f90] - Blame information for rev 774

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


! { dg-do compile }
! { dg-options "-std=f2008 -fall-intrinsics" }
!
! PR fortran/46100
!
! Pointer function as definable actual argument
! - a Fortran 2008 feature
!
integer, target :: tgt
call one (two ())
if (tgt /= 774) call abort ()
contains
  subroutine one (x)
    integer, intent(inout) :: x
    if (x /= 34) call abort ()
    x = 774
  end subroutine one
  function two ()
    integer, pointer :: two
    two => tgt
    two = 34
  end function two
end
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-std=f2008 -fall-intrinsics" }`
3			`!`
4			`! PR fortran/46100`
5			`!`
6			`! Pointer function as definable actual argument`
7			`! - a Fortran 2008 feature`
8			`!`
9			`integer, target :: tgt`
10			`call one (two ())`
11			`if (tgt /= 774) call abort ()`
12			`contains`
13			`subroutine one (x)`
14			`integer, intent(inout) :: x`
15			`if (x /= 34) call abort ()`
16			`x = 774`
17			`end subroutine one`
18			`function two ()`
19			`integer, pointer :: two`
20			`two => tgt`
21			`two = 34`
22			`end function two`
23			`end`
24

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [ptr-func-1.f90] - Blame information for rev 774