gcc/testsuite/gfortran.dg/interface_17.f90

   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 !
   7 MODULE kinds
   8   INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND ( 14, 200 )
   9 END MODULE kinds
  10
  11 MODULE util
  12   USE kinds,                           ONLY: dp
  13   INTERFACE sort
  14      MODULE PROCEDURE sort2
  15   END INTERFACE
  16 CONTAINS
  17   SUBROUTINE sort2 ( )
  18   END SUBROUTINE sort2
  19 END MODULE util
  20
  21 MODULE graphcon
  22   USE util,                            ONLY: sort
  23 END MODULE graphcon
  24 ! { dg-final { cleanup-modules "kinds util graphcon" } }