625dedc3fe
Construct entities from ASSOCIATE, SELECT TYPE, and SELECT RANK are modifiable if the are associated with modifiable variables without vector subscripts. Update WhyNotModifiable() to accept construct entities that are appropriate. A need for more general error reporting from one overload of WhyNotModifiable() caused its result type to change to std::optional<parser::Message> instead of ::MessageFixedText, and this change had some consequences that rippled through call sites. Some test results that didn't allow for modifiable construct entities needed to be updated. Differential Revision: https://reviews.llvm.org/D123722
71 lines
2.0 KiB
Fortran
71 lines
2.0 KiB
Fortran
! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s
|
|
! Test WhyNotModifiable() explanations
|
|
|
|
module prot
|
|
real, protected :: prot
|
|
type :: ptype
|
|
real, pointer :: ptr
|
|
real :: x
|
|
end type
|
|
type(ptype), protected :: protptr
|
|
contains
|
|
subroutine ok
|
|
prot = 0. ! ok
|
|
end subroutine
|
|
end module
|
|
|
|
module m
|
|
use iso_fortran_env
|
|
use prot
|
|
type :: t1
|
|
type(lock_type) :: lock
|
|
end type
|
|
type :: t2
|
|
type(t1) :: x1
|
|
real :: x2
|
|
end type
|
|
type(t2) :: t2static
|
|
character(*), parameter :: internal = '0'
|
|
contains
|
|
subroutine test1(dummy)
|
|
real :: arr(2)
|
|
integer, parameter :: j3 = 666
|
|
type(ptype), intent(in) :: dummy
|
|
type(t2) :: t2var
|
|
associate (a => 3+4)
|
|
!CHECK: error: Input variable 'a' must be definable
|
|
!CHECK: 'a' is construct associated with an expression
|
|
read(internal,*) a
|
|
end associate
|
|
associate (a => arr([1])) ! vector subscript
|
|
!CHECK: error: Input variable 'a' must be definable
|
|
!CHECK: Construct association has a vector subscript
|
|
read(internal,*) a
|
|
end associate
|
|
associate (a => arr(2:1:-1))
|
|
read(internal,*) a ! ok
|
|
end associate
|
|
!CHECK: error: Input variable 'j3' must be definable
|
|
!CHECK: '666_4' is not a variable
|
|
read(internal,*) j3
|
|
!CHECK: error: Left-hand side of assignment is not modifiable
|
|
!CHECK: 't2var' is an entity with either an EVENT_TYPE or LOCK_TYPE
|
|
t2var = t2static
|
|
t2var%x2 = 0. ! ok
|
|
!CHECK: error: Left-hand side of assignment is not modifiable
|
|
!CHECK: 'prot' is protected in this scope
|
|
prot = 0.
|
|
protptr%ptr = 0. ! ok
|
|
!CHECK: error: Left-hand side of assignment is not modifiable
|
|
!CHECK: 'dummy' is an INTENT(IN) dummy argument
|
|
dummy%x = 0.
|
|
dummy%ptr = 0. ! ok
|
|
end subroutine
|
|
pure subroutine test2(ptr)
|
|
integer, pointer, intent(in) :: ptr
|
|
!CHECK: error: Input variable 'ptr' must be definable
|
|
!CHECK: 'ptr' is externally visible and referenced in a pure procedure
|
|
read(internal,*) ptr
|
|
end subroutine
|
|
end module
|