gcc/testsuite/gfortran.dg/generic_12.f90

   1 ! { dg-do compile }
   2 ! Test the fix for PR30476 in which the generic interface hello
   3 ! was found incorrectly to be ambiguous.
   4 !
   5 !Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   6 !
   7 SUBROUTINE hello_x(dum)
   8    IMPLICIT NONE
   9    INTEGER :: dum
  10    WRITE(0,*) "Hello world: ", dum
  11 END SUBROUTINE hello_x
  12
  13 MODULE interfaces
  14 IMPLICIT NONE
  15 INTERFACE hello
  16    SUBROUTINE hello_x(dum)
  17       IMPLICIT NONE
  18       INTEGER :: dum
  19    END SUBROUTINE hello_x
  20 END INTERFACE
  21 END MODULE interfaces
  22
  23 MODULE global_module
  24   USE interfaces
  25 END MODULE global_module
  26
  27 PROGRAM main
  28   USE global_module
  29   IMPLICIT NONE
  30   CALL hello(10)
  31 END PROGRAM main
  32 ! { dg-final { cleanup-modules "interfaces global_module" } }