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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pointer_target_4.f90] - Blame information for rev 801

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


! { dg-do compile }
!
! PR fortran/47377
!
! Contributed by 
!
program testgferr
    real, pointer :: y
    y => f()  ! { dg-error "must deliver a pointer result" }
contains
    function f()
      real :: f
      f = 5
    end function f
end program testgferr

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/47377`
4			`!`
5			`! Contributed by`
6			`!`
7			`program testgferr`
8			`real, pointer :: y`
9			`y => f() ! { dg-error "must deliver a pointer result" }`
10			`contains`
11			`function f()`
12			`real :: f`
13			`f = 5`
14			`end function f`
15			`end program testgferr`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pointer_target_4.f90] - Blame information for rev 801