2 ! Tests the fix for PR32727, which was a regression caused
3 ! by the fix for PR32634
5 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
8 INTEGER, PARAMETER :: dp
= SELECTED_REAL_KIND ( 14, 200 )
14 MODULE PROCEDURE sort2
24 ! { dg-final { cleanup-modules "kinds util graphcon" } }