Subversion Repositories openrisc

! { dg-do compile }

! Tests the fix for PR32727, which was a regression caused

! by the fix for PR32634

!

! Contributed by Joost VandeVondele 

!

MODULE kinds

  INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND ( 14, 200 )

END MODULE kinds

MODULE util

  USE kinds,                           ONLY: dp

  INTERFACE sort

     MODULE PROCEDURE sort2

  END INTERFACE

CONTAINS

  SUBROUTINE sort2 ( )

  END SUBROUTINE sort2

END MODULE util

MODULE graphcon

  USE util,                            ONLY: sort

END MODULE graphcon

! { dg-final { cleanup-modules "kinds util graphcon" } }