Subversion Repositories openrisc

! { dg-do compile }

! { dg-do compile }

! Test the fix for PR30476 in which the generic interface hello

! Test the fix for PR30476 in which the generic interface hello

! was found incorrectly to be ambiguous.

! was found incorrectly to be ambiguous.

!

!

!Contributed by Tobias Burnus 

!Contributed by Tobias Burnus 

!

!

SUBROUTINE hello_x(dum)

SUBROUTINE hello_x(dum)

   IMPLICIT NONE

   IMPLICIT NONE

   INTEGER :: dum

   INTEGER :: dum

   WRITE(0,*) "Hello world: ", dum

   WRITE(0,*) "Hello world: ", dum

END SUBROUTINE hello_x

END SUBROUTINE hello_x

MODULE interfaces

MODULE interfaces

IMPLICIT NONE

IMPLICIT NONE

INTERFACE hello

INTERFACE hello

   SUBROUTINE hello_x(dum)

   SUBROUTINE hello_x(dum)

      IMPLICIT NONE

      IMPLICIT NONE

      INTEGER :: dum

      INTEGER :: dum

   END SUBROUTINE hello_x

   END SUBROUTINE hello_x

END INTERFACE

END INTERFACE

END MODULE interfaces

END MODULE interfaces

MODULE global_module

MODULE global_module

  USE interfaces

  USE interfaces

END MODULE global_module

END MODULE global_module

PROGRAM main

PROGRAM main

  USE global_module

  USE global_module

  IMPLICIT NONE

  IMPLICIT NONE

  CALL hello(10)

  CALL hello(10)

END PROGRAM main

END PROGRAM main

! { dg-final { cleanup-modules "interfaces global_module" } }

! { dg-final { cleanup-modules "interfaces global_module" } }