573fc6187b
The infrastructure in semantics that is used to check that the left-hand sides of normal assignment statements are really definable variables was not being used to check whether the LHSs of pointer assignments are modifiable, and so most cases of unmodifiable pointers are left undiagnosed. Rework the semantics checking for pointer assignments, NULLIFY statements, pointer dummy arguments, &c. so that cases of unmodifiable pointers are properly caught. This has been done by extracting all the various definability checking code that has been implemented for different contexts in Fortran into one new facility. The new consolidated definability checking code returns messages meant to be attached as "because: " explanations to context-dependent errors like "left-hand side of assignment is not definable". These new error message texts and their attached explanations affect many existing tests, which have been updated. The testing infrastructure was extended by another patch to properly compare warnings and explanatory messages, which had been ignored until recently. Differential Revision: https://reviews.llvm.org/D136979
140 lines
3.5 KiB
Fortran
140 lines
3.5 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! Construct names
|
|
|
|
subroutine s1
|
|
real :: foo
|
|
!ERROR: 'foo' is already declared in this scoping unit
|
|
foo: block
|
|
end block foo
|
|
end
|
|
|
|
subroutine s2(x)
|
|
logical :: x
|
|
foo: if (x) then
|
|
end if foo
|
|
!ERROR: 'foo' is already declared in this scoping unit
|
|
foo: do i = 1, 10
|
|
end do foo
|
|
end
|
|
|
|
subroutine s3
|
|
real :: a(10,10), b(10,10)
|
|
type y; end type
|
|
integer(8) :: x
|
|
!ERROR: Index name 'y' conflicts with existing identifier
|
|
forall(x=1:10, y=1:10)
|
|
a(x, y) = b(x, y)
|
|
end forall
|
|
!ERROR: Index name 'y' conflicts with existing identifier
|
|
forall(x=1:10, y=1:10) a(x, y) = b(x, y)
|
|
end
|
|
|
|
subroutine s4
|
|
real :: a(10), b(10)
|
|
complex :: x
|
|
integer :: i(2)
|
|
!ERROR: Must have INTEGER type, but is COMPLEX(4)
|
|
forall(x=1:10)
|
|
!ERROR: Must have INTEGER type, but is COMPLEX(4)
|
|
!ERROR: Must have INTEGER type, but is COMPLEX(4)
|
|
a(x) = b(x)
|
|
end forall
|
|
!ERROR: Must have INTEGER type, but is REAL(4)
|
|
forall(y=1:10)
|
|
!ERROR: Must have INTEGER type, but is REAL(4)
|
|
!ERROR: Must have INTEGER type, but is REAL(4)
|
|
a(y) = b(y)
|
|
end forall
|
|
!ERROR: Index variable 'i' is not scalar
|
|
forall(i=1:10)
|
|
a(i) = b(i)
|
|
end forall
|
|
end
|
|
|
|
subroutine s6
|
|
integer, parameter :: n = 4
|
|
real, dimension(n) :: x
|
|
data(x(i), i=1, n) / n * 0.0 /
|
|
!ERROR: Index name 't' conflicts with existing identifier
|
|
forall(t=1:n) x(t) = 0.0
|
|
contains
|
|
subroutine t
|
|
end
|
|
end
|
|
|
|
subroutine s6b
|
|
integer, parameter :: k = 4
|
|
integer :: l = 4
|
|
forall(integer(k) :: i = 1:10)
|
|
end forall
|
|
! C713 A scalar-int-constant-name shall be a named constant of type integer.
|
|
!ERROR: Must be a constant value
|
|
forall(integer(l) :: i = 1:10)
|
|
end forall
|
|
end
|
|
|
|
subroutine s7
|
|
!ERROR: 'i' is already declared in this scoping unit
|
|
do concurrent(integer::i=1:5) local(j, i) &
|
|
!ERROR: 'j' is already declared in this scoping unit
|
|
local_init(k, j) &
|
|
!WARNING: Variable 'a' with SHARED locality implicitly declared
|
|
shared(a)
|
|
a = j + 1
|
|
end do
|
|
end
|
|
|
|
subroutine s8
|
|
implicit none
|
|
!ERROR: No explicit type declared for 'i'
|
|
do concurrent(i=1:5) &
|
|
!ERROR: No explicit type declared for 'j'
|
|
local(j) &
|
|
!ERROR: No explicit type declared for 'k'
|
|
local_init(k)
|
|
end do
|
|
end
|
|
|
|
subroutine s9
|
|
integer :: j
|
|
!ERROR: 'i' is already declared in this scoping unit
|
|
do concurrent(integer::i=1:5) shared(i) &
|
|
shared(j) &
|
|
!ERROR: 'j' is already declared in this scoping unit
|
|
shared(j)
|
|
end do
|
|
end
|
|
|
|
subroutine s10
|
|
external bad1
|
|
real, parameter :: bad2 = 1.0
|
|
x = cos(0.)
|
|
do concurrent(i=1:2) &
|
|
!ERROR: 'bad1' may not appear in a locality-spec because it is not definable
|
|
!BECAUSE: 'bad1' is not a variable
|
|
local(bad1) &
|
|
!ERROR: 'bad2' may not appear in a locality-spec because it is not definable
|
|
!BECAUSE: 'bad2' is not a variable
|
|
local(bad2) &
|
|
!ERROR: 'bad3' may not appear in a locality-spec because it is not definable
|
|
!BECAUSE: 'bad3' is not a variable
|
|
local(bad3) &
|
|
!ERROR: 'cos' may not appear in a locality-spec because it is not definable
|
|
!BECAUSE: 'cos' is not a variable
|
|
local(cos)
|
|
end do
|
|
do concurrent(i=1:2) &
|
|
!ERROR: The name 'bad1' must be a variable to appear in a locality-spec
|
|
shared(bad1) &
|
|
!ERROR: The name 'bad2' must be a variable to appear in a locality-spec
|
|
shared(bad2) &
|
|
!ERROR: The name 'bad3' must be a variable to appear in a locality-spec
|
|
shared(bad3) &
|
|
!ERROR: The name 'cos' must be a variable to appear in a locality-spec
|
|
shared(cos)
|
|
end do
|
|
contains
|
|
subroutine bad3
|
|
end
|
|
end
|