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.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [associated_1.f90] - Rev 149
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do run }
! PR 25292: Check that the intrinsic associated works with functions returning
! pointers as arguments
program test
real, pointer :: a, b
nullify(a,b)
if(associated(a,b).or.associated(a,a)) call abort()
allocate(a)
if(associated(b,a)) call abort()
if (.not.associated(x(a))) call abort ()
if (.not.associated(a, x(a))) call abort ()
nullify(b)
if (associated(x(b))) call abort ()
allocate(b)
if (associated(x(b), x(a))) call abort ()
contains
function x(a) RESULT(b)
real, pointer :: a,b
b => a
end function x
end program test
Go to most recent revision | Compare with Previous | Blame | View Log