Subversion Repositories openrisc

! { dg-do compile }

! Tests the fix for PR37597, where the reference to other_sub would generate

! Error: Symbol 'other_sub' at (1) has no IMPLICIT type.

!

! Contributed by Tobias Burnus 

! from a report on clf by Rich Townsend 

!

module foo

   implicit none

contains

   subroutine main_sub ()

     call internal_sub()

   contains

     subroutine internal_sub()

       call QAG(other_sub)

     end subroutine internal_sub

   end subroutine main_sub

   subroutine other_sub ()

   end subroutine other_sub

end module foo

! { dg-final { cleanup-modules "foo" } }