gcc/testsuite/gfortran.dg/generic_13.f90

   1 ! { dg-do compile }
   2 ! tests the patch for PR30870, in which the generic XX was rejected
   3 ! because the specific with the same name was not looked for.
   4 !
   5 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
   6 !
   7 MODULE TEST
   8  INTERFACE xx
   9    MODULE PROCEDURE xx
  10  END INTERFACE
  11  public :: xx
  12 CONTAINS
  13  SUBROUTINE xx(i)
  14   INTEGER :: I
  15   I=7
  16  END SUBROUTINE
  17 END
  18 MODULE TOO
  19 CONTAINS
  20  SUBROUTINE SUB(xx,I)
  21   INTERFACE
  22     SUBROUTINE XX(I)
  23         INTEGER :: I
  24     END SUBROUTINE
  25   END INTERFACE
  26   CALL XX(I)
  27  END SUBROUTINE
  28 END MODULE TOO
  29 PROGRAM TT
  30  USE TEST
  31  USE TOO
  32  INTEGER :: I
  33  CALL SUB(xx,I)
  34  IF (I.NE.7) CALL ABORT()
  35 END PROGRAM
  36 ! { dg-final { cleanup-modules "test too" } }