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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [proc_decl_19.f90] - Rev 694

Compare with Previous | Blame | View Log

! { dg-do compile }
! 
! PR 36426
!
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>

abstract interface
  function foo(x)
    character(len=*) :: x
    character(len=len(x)) :: foo
  end function foo
end interface
procedure(foo) :: bar

abstract interface
  character function abs_fun()
  end function
end interface
procedure(abs_fun):: x

character(len=20) :: str
str = bar("Hello")
end

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.