mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 03:26:48 +00:00
8ddedbf2f8
…ocedure When an previously unknown name appears as the target of an assignment to a known procedure pointer, create an external symbol for it rather than an implicitly-typed object symbol.
8 lines
238 B
Fortran
8 lines
238 B
Fortran
! RUN: %python %S/test_symbols.py %s %flang_fc1
|
|
!DEF: /MainProgram1/pptr EXTERNAL, POINTER ProcEntity
|
|
procedure(), pointer :: pptr
|
|
!REF: /MainProgram1/pptr
|
|
!DEF: /mustbeexternal EXTERNAL ProcEntity
|
|
pptr => mustbeexternal
|
|
end program
|