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
59 lines
1.9 KiB
Fortran
59 lines
1.9 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! Test 15.5.2.6 constraints and restrictions for ALLOCATABLE
|
|
! dummy arguments.
|
|
|
|
module m
|
|
|
|
real, allocatable :: cov[:], com[:,:]
|
|
|
|
contains
|
|
|
|
subroutine s01(x)
|
|
real, allocatable :: x
|
|
end subroutine
|
|
subroutine s02(x)
|
|
real, allocatable :: x[:]
|
|
end subroutine
|
|
subroutine s03(x)
|
|
real, allocatable :: x[:,:]
|
|
end subroutine
|
|
subroutine s04(x)
|
|
real, allocatable, intent(in) :: x
|
|
end subroutine
|
|
subroutine s05(x)
|
|
real, allocatable, intent(out) :: x
|
|
end subroutine
|
|
subroutine s06(x)
|
|
real, allocatable, intent(in out) :: x
|
|
end subroutine
|
|
function allofunc()
|
|
real, allocatable :: allofunc
|
|
end function
|
|
|
|
subroutine test(x)
|
|
real :: scalar
|
|
real, allocatable, intent(in) :: x
|
|
!ERROR: ALLOCATABLE dummy argument 'x=' must be associated with an ALLOCATABLE actual argument
|
|
call s01(scalar)
|
|
!ERROR: ALLOCATABLE dummy argument 'x=' must be associated with an ALLOCATABLE actual argument
|
|
call s01(1.)
|
|
!ERROR: ALLOCATABLE dummy argument 'x=' must be associated with an ALLOCATABLE actual argument
|
|
call s01(allofunc()) ! subtle: ALLOCATABLE function result isn't
|
|
call s02(cov) ! ok
|
|
call s03(com) ! ok
|
|
!ERROR: ALLOCATABLE dummy argument 'x=' has corank 1 but actual argument has corank 2
|
|
call s02(com)
|
|
!ERROR: ALLOCATABLE dummy argument 'x=' has corank 2 but actual argument has corank 1
|
|
call s03(cov)
|
|
call s04(cov[1]) ! ok
|
|
!ERROR: ALLOCATABLE dummy argument 'x=' must have INTENT(IN) to be associated with a coindexed actual argument
|
|
call s01(cov[1])
|
|
!ERROR: Actual argument associated with INTENT(OUT) dummy argument 'x=' is not definable
|
|
!BECAUSE: 'x' is an INTENT(IN) dummy argument
|
|
call s05(x)
|
|
!ERROR: Actual argument associated with INTENT(IN OUT) dummy argument 'x=' is not definable
|
|
!BECAUSE: 'x' is an INTENT(IN) dummy argument
|
|
call s06(x)
|
|
end subroutine
|
|
end module
|