1! { dg-do compile }
2! Tests the fix for PR32727, which was a regression caused
3! by the fix for PR32634
4!
5! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
6!
7MODULE kinds
8  INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND ( 14, 200 )
9END MODULE kinds
10
11MODULE util
12  USE kinds,                           ONLY: dp
13  INTERFACE sort
14     MODULE PROCEDURE sort2
15  END INTERFACE
16CONTAINS
17  SUBROUTINE sort2 ( )
18  END SUBROUTINE sort2
19END MODULE util
20
21MODULE graphcon
22  USE util,                            ONLY: sort
23END MODULE graphcon
24