31 lines
824 B
Fortran
31 lines
824 B
Fortran
! { dg-do compile }
|
|
! This tests the fix for PR24866 in which the reference to the external str, in
|
|
! sub_module, would get mixed up with the module procedure, str, thus
|
|
! causing an ICE. This is a completed version of the reporter's testcase; ie
|
|
! it adds a main program and working subroutines to allow a check for
|
|
! correct functioning.
|
|
!
|
|
! Contributed by Uttam Pawar <uttamp@us.ibm.com>
|
|
!
|
|
subroutine sub()
|
|
print *, "external sub"
|
|
end subroutine sub
|
|
|
|
module test_module
|
|
contains
|
|
subroutine sub_module(str)
|
|
external :: str
|
|
call str ()
|
|
end subroutine sub_module
|
|
subroutine str()
|
|
print *, "module str"
|
|
end subroutine str
|
|
end module test_module
|
|
|
|
use test_module
|
|
external sub
|
|
call sub_module (sub)
|
|
call sub_module (str)
|
|
end
|
|
! { dg-final { cleanup-modules "test_module" } }
|