25 lines
589 B
Fortran
25 lines
589 B
Fortran
! { 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
|
|
! { dg-final { cleanup-modules "kinds util graphcon" } }
|