6e0a2031f0
In
CALL FOO
PRINT *, ABS(FOO)
we currently resolve the first FOO to a global external subprogram, but
then the second FOO is treated as an implicitly typed local variable.
This happens because the name FOO is not present in the local scope.
Fix by adding FOO to the local scope using a place-holding
HostAssocDetails symbol whose existence prevents the creation of another
FOO in the local scope. The symbol stored in the parser::Name parse tree
nodes or used in typed expressions will all continue to point to the
global external subprogram.
Resolves llvm-test-suite/Fortran/gfortran/regression/pr71859.f90.
49 lines
1.8 KiB
Fortran
49 lines
1.8 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! 15.4.2.2. Test that errors are reported when an explicit interface
|
|
! is not provided for an external procedure that requires an explicit
|
|
! interface (the definition needs to be visible so that the compiler
|
|
! can detect the violation).
|
|
|
|
subroutine foo(a_pointer)
|
|
real, pointer :: a_pointer(:)
|
|
end subroutine
|
|
|
|
subroutine bar(a_pointer)
|
|
procedure(real), pointer :: a_pointer
|
|
end subroutine
|
|
|
|
subroutine baz(proc)
|
|
external :: proc
|
|
real, optional :: proc
|
|
end subroutine
|
|
|
|
subroutine test()
|
|
real, pointer :: a_pointer(:)
|
|
real, pointer :: an_array(:)
|
|
intrinsic :: sin
|
|
|
|
! This call would be allowed if the interface was explicit here,
|
|
! but its handling with an implicit interface is different (no
|
|
! descriptor involved, copy-in/copy-out...)
|
|
|
|
!ERROR: References to the procedure 'foo' require an explicit interface
|
|
!BECAUSE: a dummy argument has the allocatable, asynchronous, optional, pointer, target, value, or volatile attribute
|
|
call foo(a_pointer)
|
|
|
|
! This call would be error if the interface was explicit here.
|
|
|
|
!ERROR: References to the procedure 'foo' require an explicit interface
|
|
!BECAUSE: a dummy argument has the allocatable, asynchronous, optional, pointer, target, value, or volatile attribute
|
|
call foo(an_array)
|
|
|
|
!ERROR: References to the procedure 'bar' require an explicit interface
|
|
!BECAUSE: a dummy procedure is optional or a pointer
|
|
!WARNING: If the procedure's interface were explicit, this reference would be in error
|
|
!BECAUSE: Actual argument associated with procedure pointer dummy argument 'a_pointer=' must be a pointer unless INTENT(IN)
|
|
call bar(sin)
|
|
|
|
!ERROR: References to the procedure 'baz' require an explicit interface
|
|
!BECAUSE: a dummy procedure is optional or a pointer
|
|
call baz(sin)
|
|
end subroutine
|