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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
! { dg-options "-std=f2003 -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 ()) ! { dg-error "Fortran 2008: Pointer functions" }
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
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.