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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! { dg-options "-std=f2003" }
!
! PR fortran/47550
! Follow up to: PR fortran/47507
!
! PURE procedures: Allow arguments w/o INTENT if they are VALUE
!
 
pure function f(x) ! { dg-error "Fortran 2008: Argument 'x' of pure function" }
  real, VALUE :: x
  real :: f
  f = sin(x)
end function f
 
pure subroutine sub(x) ! { dg-error "Fortran 2008: Argument 'x' of pure subroutine" }
  real, VALUE :: x
end subroutine sub

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-std=f2003" }`
3			`!`
4			`! PR fortran/47550`
5			`! Follow up to: PR fortran/47507`
6			`!`
7			`! PURE procedures: Allow arguments w/o INTENT if they are VALUE`
8			`!`
9
10			`pure function f(x) ! { dg-error "Fortran 2008: Argument 'x' of pure function" }`
11			`real, VALUE :: x`
12			`real :: f`
13			`f = sin(x)`
14			`end function f`
15
16			`pure subroutine sub(x) ! { dg-error "Fortran 2008: Argument 'x' of pure subroutine" }`
17			`real, VALUE :: x`
18			`end subroutine sub`

Browse

Tools

Subversion Repositories openrisc

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