| ! { 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 |