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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [array_alloc_1.f90] - Blame information for rev 516

Details | Compare with Previous | View Log


! PR 21104.  Make sure that either f() or its caller will allocate
! the array data.  We've decided to make the caller allocate it.
! { dg-do run }
program main
  implicit none
  call test (f ())
contains
  subroutine test (x)
    integer, dimension (10) :: x
    integer :: i
    do i = 1, 10
      if (x (i) .ne. i * 100) call abort
    end do
  end subroutine test
 
  function f ()
    integer, dimension (10) :: f
    integer :: i
    forall (i = 1:10) f (i) = i * 100
  end function f
end program main

Line No.	Rev	Author	Line
1	302	jeremybenn	`! PR 21104. Make sure that either f() or its caller will allocate`
2			`! the array data. We've decided to make the caller allocate it.`
3			`! { dg-do run }`
4			`program main`
5			`implicit none`
6			`call test (f ())`
7			`contains`
8			`subroutine test (x)`
9			`integer, dimension (10) :: x`
10			`integer :: i`
11			`do i = 1, 10`
12			`if (x (i) .ne. i * 100) call abort`
13			`end do`
14			`end subroutine test`
15
16			`function f ()`
17			`integer, dimension (10) :: f`
18			`integer :: i`
19			`forall (i = 1:10) f (i) = i * 100`
20			`end function f`
21			`end program main`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [array_alloc_1.f90] - Blame information for rev 516