URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [import5.f90] - Rev 516
Compare with Previous | Blame | View Log
! { dg-do compile }
! Test for import in interfaces PR fortran/30922
!
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
!
module test_import
implicit none
type :: my_type
integer :: data
end type my_type
integer, parameter :: n = 20
interface
integer function func1(param)
import
type(my_type) :: param(n)
end function func1
integer function func2(param)
import :: my_type
type(my_type), value :: param
end function func2
end interface
contains
subroutine sub1 ()
interface
integer function func3(param)
import
type(my_type), dimension (n) :: param
end function func3
integer function func4(param)
import :: my_type, n
type(my_type), dimension (n) :: param
end function func4
end interface
end subroutine sub1
end module test_import
! { dg-final { cleanup-modules "test_import" } }