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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR fortran/34689
!
! The following (cf. libgomp.fortran/appendix-a/a.33.3.f90)
! was rejected because the intent check missed a FL_FUNCTION
! for the result variable.
!
function test()
  implicit none
  integer :: test
  interface
    subroutine foo(a)
      integer, intent(inout) :: a
    end subroutine foo
  end interface
  call foo(test)
end function test

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/34689`
4			`!`
5			`! The following (cf. libgomp.fortran/appendix-a/a.33.3.f90)`
6			`! was rejected because the intent check missed a FL_FUNCTION`
7			`! for the result variable.`
8			`!`
9			`function test()`
10			`implicit none`
11			`integer :: test`
12			`interface`
13			`subroutine foo(a)`
14			`integer, intent(inout) :: a`
15			`end subroutine foo`
16			`end interface`
17			`call foo(test)`
18			`end function test`

Browse

Tools

Subversion Repositories openrisc

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