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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR fortran/52059
!
!
 
subroutine baz
  real(kind=8) :: a(99), b
  interface bar
    function bar (x, y)
      integer, intent(in) :: x, y
      real(kind=8), dimension((y-x)) :: bar
    end function bar
  end interface
  b = 1.0_8
  a = foo (bar(0,35) / dble(34), b)
contains
  elemental real(kind=8) function foo(x, y)
    real(kind=8), intent(in) :: x, y
    foo = 1
  end function foo
end subroutine baz

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/52059`
4			`!`
5			`!`
6
7			`subroutine baz`
8			`real(kind=8) :: a(99), b`
9			`interface bar`
10			`function bar (x, y)`
11			`integer, intent(in) :: x, y`
12			`real(kind=8), dimension((y-x)) :: bar`
13			`end function bar`
14			`end interface`
15			`b = 1.0_8`
16			`a = foo (bar(0,35) / dble(34), b)`
17			`contains`
18			`elemental real(kind=8) function foo(x, y)`
19			`real(kind=8), intent(in) :: x, y`
20			`foo = 1`
21			`end function foo`
22			`end subroutine baz`

Browse

Tools

Subversion Repositories openrisc

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