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