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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [contained_4.f90] - Rev 701

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

! Check contained functions with the same name.
module contained_4

contains

  subroutine foo1()
    call bar()
  contains
    subroutine bar()
    end subroutine bar
  end subroutine foo1

  subroutine foo2()
    call bar()
  contains
    subroutine bar()
    end subroutine bar
  end subroutine foo2

end module contained_4

subroutine foo1()
call bar()
contains
  subroutine bar()
  end subroutine bar
end subroutine

subroutine foo2()
  call bar()
contains
  subroutine bar()
  end subroutine bar
end subroutine foo2

Go to most recent revision | 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.