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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! Test fix for PR30034 in which the legal, pure procedure formal
! argument was rejected as an error.
!
! Contgributed by Troban Trumsko 
!
 pure subroutine s_one ( anum, afun )
    integer, intent(in) :: anum
    interface
      pure function afun (k) result (l)
        implicit none
        integer, intent(in) :: k
        integer :: l
      end function afun
    end interface
end subroutine s_one

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! Test fix for PR30034 in which the legal, pure procedure formal`
3			`! argument was rejected as an error.`
4			`!`
5			`! Contgributed by Troban Trumsko`
6			`!`
7			`pure subroutine s_one ( anum, afun )`
8			`integer, intent(in) :: anum`
9			`interface`
10			`pure function afun (k) result (l)`
11			`implicit none`
12			`integer, intent(in) :: k`
13			`integer :: l`
14			`end function afun`
15			`end interface`
16			`end subroutine s_one`

Browse

Tools

Subversion Repositories openrisc

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