mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-16 21:56:34 +00:00
d4fd0a792f
When a MODULE SUBROUTINE or MODULE FUNCTION is implemented in the same scope as its interface and appears in a generic with the same name, the parse::Name of the implementation was not correctly reset and remained the SubprogramNameDetails symbol after semantics, causing a crash in lowering that picks up the procedure symbols on the parser names. Reset the parser::Name symbol before the new symbol is created.
63 lines
1.4 KiB
Fortran
63 lines
1.4 KiB
Fortran
! RUN: %python %S/test_symbols.py %s %flang_fc1
|
|
!DEF: /m1 Module
|
|
module m1
|
|
!DEF: /m1/s PUBLIC (Subroutine) Generic
|
|
interface s
|
|
!DEF: /m1/s MODULE (Subroutine) Subprogram
|
|
module subroutine s
|
|
end subroutine
|
|
!DEF: /m1/s2 MODULE, PUBLIC (Subroutine) Subprogram
|
|
!DEF: /m1/s2/j INTENT(IN) ObjectEntity INTEGER(4)
|
|
module subroutine s2 (j)
|
|
!REF: /m1/s2/j
|
|
integer, intent(in) :: j
|
|
end subroutine
|
|
end interface
|
|
contains
|
|
!DEF: /m1/s MODULE (Subroutine) Subprogram
|
|
module subroutine s
|
|
end subroutine
|
|
!REF: /m1/s2
|
|
module procedure s2
|
|
end procedure
|
|
!DEF: /m1/test PUBLIC (Subroutine) Subprogram
|
|
subroutine test
|
|
!REF: /m1/s
|
|
call s
|
|
!REF: /m1/s2
|
|
call s(1)
|
|
end subroutine
|
|
end module
|
|
!DEF: /m2 Module
|
|
module m2
|
|
!DEF: /m2/s PUBLIC (Subroutine) Generic
|
|
interface s
|
|
!DEF: /m2/s MODULE (Subroutine) Subprogram
|
|
module subroutine s
|
|
end subroutine
|
|
!DEF: /m2/s2 MODULE, PUBLIC (Subroutine) Subprogram
|
|
!DEF: /m2/s2/j INTENT(IN) ObjectEntity INTEGER(4)
|
|
module subroutine s2 (j)
|
|
!REF: /m2/s2/j
|
|
integer, intent(in) :: j
|
|
end subroutine
|
|
end interface
|
|
contains
|
|
!REF:/m2/s
|
|
module procedure s
|
|
end procedure
|
|
!DEF: /m2/s2 MODULE, PUBLIC (Subroutine) Subprogram
|
|
!DEF: /m2/s2/j INTENT(IN) ObjectEntity INTEGER(4)
|
|
module subroutine s2 (j)
|
|
!REF: /m2/s2/j
|
|
integer, intent(in) :: j
|
|
end subroutine
|
|
!DEF: /m2/test PUBLIC (Subroutine) Subprogram
|
|
subroutine test
|
|
!REF: /m2/s
|
|
call s
|
|
!REF: /m2/s2
|
|
call s(1)
|
|
end subroutine
|
|
end module
|