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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [func_result_1.f90] - Blame information for rev 823

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


! { dg-do run }
! From PR 19673 : We didn't dereference the the result from POINTER
! functions with a RESULT clause
program ret_ptr
  if (foo(99) /= bar(99)) call abort ()
contains
  function foo (arg) result(ptr)
    integer :: arg
    integer, pointer :: ptr
    allocate (ptr)
    ptr = arg
  end function foo
  function bar (arg)
    integer :: arg
    integer, pointer :: bar
    allocate (bar)
    bar = arg
  end function bar
end  program ret_ptr

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do run }`
2			`! From PR 19673 : We didn't dereference the the result from POINTER`
3			`! functions with a RESULT clause`
4			`program ret_ptr`
5			`if (foo(99) /= bar(99)) call abort ()`
6			`contains`
7			`function foo (arg) result(ptr)`
8			`integer :: arg`
9			`integer, pointer :: ptr`
10			`allocate (ptr)`
11			`ptr = arg`
12			`end function foo`
13			`function bar (arg)`
14			`integer :: arg`
15			`integer, pointer :: bar`
16			`allocate (bar)`
17			`bar = arg`
18			`end function bar`
19			`end program ret_ptr`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [func_result_1.f90] - Blame information for rev 823