mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 16:26:42 +00:00
33c27f28d1
When the result of a function never appears in a variable definition context, emit a warning. If the function has multiple result variables due to alternate ENTRY statements, any definition will suffice. The implementation of this check is tied to the general variable definability checking utility in semantics. Every variable definition context uses it to ensure that no undefinable variable is being defined. A set of defined variables is maintained in the SemanticsContext and, when the warning is enabled and no fatal error has been reported, the scope tree is traversed and all the function subprograms' results are tested for membership in that set.
40 lines
1.5 KiB
Fortran
40 lines
1.5 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic
|
|
module m0
|
|
real, pointer, contiguous :: p1(:) ! ok
|
|
real, pointer :: p2(:)
|
|
end
|
|
module m
|
|
use m0
|
|
!WARNING: Use-associated 'p1' already has 'CONTIGUOUS' attribute
|
|
contiguous p1
|
|
!ERROR: Cannot change CONTIGUOUS attribute on use-associated 'p2'
|
|
contiguous p2
|
|
!PORTABILITY: CONTIGUOUS entity 'x' should be an array pointer, assumed-shape, or assumed-rank
|
|
real, contiguous :: x
|
|
!PORTABILITY: CONTIGUOUS entity 'scalar' should be an array pointer, assumed-shape, or assumed-rank
|
|
real, contiguous, pointer :: scalar
|
|
!PORTABILITY: CONTIGUOUS entity 'allocatable' should be an array pointer, assumed-shape, or assumed-rank
|
|
real, contiguous, allocatable :: allocatable
|
|
contains
|
|
!PORTABILITY: CONTIGUOUS entity 'func' should be an array pointer, assumed-shape, or assumed-rank
|
|
function func(ashape,arank) result(r)
|
|
real, contiguous :: ashape(:) ! ok
|
|
real, contiguous :: arank(..) ! ok
|
|
!PORTABILITY: CONTIGUOUS entity 'r' should be an array pointer, assumed-shape, or assumed-rank
|
|
real :: r(10)
|
|
!PORTABILITY: CONTIGUOUS entity 'r2' should be an array pointer, assumed-shape, or assumed-rank
|
|
real :: r2(10)
|
|
contiguous func
|
|
contiguous r
|
|
contiguous e
|
|
contiguous r2
|
|
!PORTABILITY: CONTIGUOUS entity 'e' should be an array pointer, assumed-shape, or assumed-rank
|
|
entry e() result(r2)
|
|
r2 = 0
|
|
end
|
|
function fp()
|
|
real, pointer, contiguous :: fp(:) ! ok
|
|
nullify(fp)
|
|
end
|
|
end
|