! { dg-do compile } | |
! Tests the fix for PR32727, which was a regression caused | |
! by the fix for PR32634 | |
! | |
! Contributed by Joost VandeVondele <jv244@cam.ac.uk> | |
! | |
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 |