mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 06:46:36 +00:00
7c71ce97e7
Items in NAMELIST groups might be host-associated implicitly-typed variables, but name resolution can't know that when the NAMELIST appears in a specification part and the host's execution part has not yet been analyzed. So defer NAMELIST group item name resolution to the end of the execution part. This is safe because nothing else in name resolution depends on whether a variable is in a NAMELIST group or not. Differential Revision: https://reviews.llvm.org/D123723
36 lines
898 B
Fortran
36 lines
898 B
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! Ensures that things that aren't procedures aren't allowed to be called.
|
|
module m
|
|
integer :: i
|
|
integer, pointer :: ip
|
|
type :: t
|
|
end type
|
|
type :: pdt(k,len)
|
|
integer, kind :: k
|
|
integer, len :: len
|
|
end type
|
|
type(pdt(1,2)) :: x
|
|
!ERROR: 'i' is not a variable
|
|
namelist /nml/i
|
|
contains
|
|
subroutine s(d)
|
|
real d
|
|
!ERROR: 'm' is not a callable procedure
|
|
call m
|
|
!ERROR: Cannot call function 'i' like a subroutine
|
|
call i
|
|
!ERROR: Cannot call function 'ip' like a subroutine
|
|
call ip
|
|
!ERROR: 't' is not a callable procedure
|
|
call t
|
|
!ERROR: 'k' is not a procedure
|
|
call x%k
|
|
!ERROR: 'len' is not a procedure
|
|
call x%len
|
|
!ERROR: Use of 'nml' as a procedure conflicts with its declaration
|
|
call nml
|
|
!ERROR: Cannot call function 'd' like a subroutine
|
|
call d
|
|
end subroutine
|
|
end
|