gcc/testsuite/gfortran.dg/host_assoc_function_4.f90

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/37445, in which the contained 's1' would be
   4 ! ignored and the use+host associated version used.
   5 !
   6 ! Contributed by Norman S Clerman < clerman@fuse.net>
   7 !
   8 MODULE M1
   9 CONTAINS
  10   integer function S1 ()
  11     s1 = 0
  12   END function
  13 END MODULE
  14
  15 MODULE M2
  16   USE M1
  17 CONTAINS
  18   SUBROUTINE S2
  19     if (s1 () .ne. 1) call abort
  20   CONTAINS
  21     integer function S1 ()
  22       s1 = 1
  23     END function
  24   END SUBROUTINE
  25 END MODULE
  26
  27   USE M2
  28   CALL S2
  29 END
  30 ! { dg-final { cleanup-modules "M1 M2" } }