Subversion Repositories openrisc

! { dg-do compile }

! { dg-do compile }

! Tests the fix for PR32464, where the use associated procedure would

! Tests the fix for PR32464, where the use associated procedure would

! mess up the check for "grandparent" host association.

! mess up the check for "grandparent" host association.

!

!

! Contributed by Harald Anlauf 

! Contributed by Harald Anlauf 

!

!

module gfcbug64_mod1

module gfcbug64_mod1

  implicit none

  implicit none

  public :: inverse

  public :: inverse

  interface inverse

  interface inverse

     module procedure copy

     module procedure copy

  end interface

  end interface

contains

contains

  function copy (d) result (y)

  function copy (d) result (y)

    real, intent(in) :: d(:)

    real, intent(in) :: d(:)

    real             :: y(size (d))     ! <- this version kills gfortran

    real             :: y(size (d))     ! <- this version kills gfortran

!    real, intent(in) :: d

!    real, intent(in) :: d

!    real             :: y

!    real             :: y

    y = d

    y = d

  end function copy

  end function copy

end module gfcbug64_mod1

end module gfcbug64_mod1

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

module gfcbug64_mod2

module gfcbug64_mod2

  implicit none

  implicit none

contains

contains

  subroutine foo (x_o)

  subroutine foo (x_o)

    real, intent(in) :: x_o(:)

    real, intent(in) :: x_o(:)

    integer          :: s(size (x_o))           ! <- this line kills gfortran

    integer          :: s(size (x_o))           ! <- this line kills gfortran

  contains

  contains

    subroutine bar ()

    subroutine bar ()

      use gfcbug64_mod1, only: inverse          ! <- this line kills gfortran

      use gfcbug64_mod1, only: inverse          ! <- this line kills gfortran

    end subroutine bar

    end subroutine bar

  end subroutine foo

  end subroutine foo

end module gfcbug64_mod2

end module gfcbug64_mod2

! { dg-final { cleanup-modules "gfcbug64_mod1 gfcbug64_mod2" } }

! { dg-final { cleanup-modules "gfcbug64_mod1 gfcbug64_mod2" } }