gcc/testsuite/gfortran.dg/host_assoc_call_5.f90

   1 ! { dg-do compile }
   2 ! Tests the fix for PR37597, where the reference to other_sub would generate
   3 ! Error: Symbol 'other_sub' at (1) has no IMPLICIT type.
   4 !
   5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   6 ! from a report on clf by Rich Townsend <rhdt@barvoidtol.udel.edu>
   7 !
   8 module foo
   9    implicit none
  10 contains
  11    subroutine main_sub ()
  12      call internal_sub()
  13    contains
  14      subroutine internal_sub()
  15        call QAG(other_sub)
  16      end subroutine internal_sub
  17    end subroutine main_sub
  18    subroutine other_sub ()
  19    end subroutine other_sub
  20 end module foo
  21 ! { dg-final { cleanup-modules "foo" } }