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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR fortran/47507
!
! PURE procedures: Allow arguments w/o INTENT if they are VALUE
!
 
pure function f(x)
  real, VALUE :: x
  real :: f
  f = sin(x)
end function f
 
pure subroutine sub(x)
  real, VALUE :: x
end subroutine sub

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/47507`
4			`!`
5			`! PURE procedures: Allow arguments w/o INTENT if they are VALUE`
6			`!`
7
8			`pure function f(x)`
9			`real, VALUE :: x`
10			`real :: f`
11			`f = sin(x)`
12			`end function f`
13
14			`pure subroutine sub(x)`
15			`real, VALUE :: x`
16			`end subroutine sub`

Browse

Tools

Subversion Repositories openrisc

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