mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 04:06:46 +00:00
33b061f8ea
Constraint C955 in F'2023 prohibits an allocate-object from being coindexed. We catch this on ALLOCATE statements but missed it on DEALLOCATE.
79 lines
2.0 KiB
Fortran
79 lines
2.0 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! Check for semantic errors in DEALLOCATE statements
|
|
|
|
Module share
|
|
Real, Pointer :: rp
|
|
End Module share
|
|
|
|
Program deallocatetest
|
|
Use share
|
|
|
|
INTEGER, PARAMETER :: maxvalue=1024
|
|
|
|
Type dt
|
|
Integer :: l = 3
|
|
End Type
|
|
Type t
|
|
Type(dt) :: p
|
|
End Type
|
|
|
|
Type(t),Allocatable :: x(:)
|
|
|
|
Real :: r
|
|
Integer :: s
|
|
Integer, Parameter :: const_s = 13
|
|
Integer :: e
|
|
Integer :: pi
|
|
Character(256) :: ee
|
|
Procedure(Real) :: prp
|
|
|
|
type at
|
|
real, allocatable :: a
|
|
end type
|
|
type(at) :: c[*]
|
|
|
|
Allocate(rp)
|
|
Deallocate(rp)
|
|
|
|
Allocate(x(3))
|
|
|
|
!ERROR: Component in DEALLOCATE statement must have the ALLOCATABLE or POINTER attribute
|
|
Deallocate(x(2)%p)
|
|
|
|
!ERROR: Name in DEALLOCATE statement must have the ALLOCATABLE or POINTER attribute
|
|
Deallocate(pi)
|
|
|
|
!ERROR: Component in DEALLOCATE statement must have the ALLOCATABLE or POINTER attribute
|
|
!ERROR: Name in DEALLOCATE statement must have the ALLOCATABLE or POINTER attribute
|
|
Deallocate(x(2)%p, pi)
|
|
|
|
!ERROR: Name in DEALLOCATE statement must be a variable name
|
|
Deallocate(prp)
|
|
|
|
!ERROR: Name in DEALLOCATE statement must have the ALLOCATABLE or POINTER attribute
|
|
!ERROR: Name in DEALLOCATE statement must be a variable name
|
|
Deallocate(pi, prp)
|
|
|
|
!ERROR: Name in DEALLOCATE statement must be a variable name
|
|
Deallocate(maxvalue)
|
|
|
|
!ERROR: Component in DEALLOCATE statement must have the ALLOCATABLE or POINTER attribute
|
|
Deallocate(x%p)
|
|
|
|
!ERROR: STAT may not be duplicated in a DEALLOCATE statement
|
|
Deallocate(x, stat=s, stat=s)
|
|
!ERROR: STAT variable 'const_s' is not definable
|
|
!BECAUSE: '13_4' is not a variable or pointer
|
|
Deallocate(x, stat=const_s)
|
|
!ERROR: ERRMSG may not be duplicated in a DEALLOCATE statement
|
|
Deallocate(x, errmsg=ee, errmsg=ee)
|
|
!ERROR: STAT may not be duplicated in a DEALLOCATE statement
|
|
Deallocate(x, stat=s, errmsg=ee, stat=s)
|
|
!ERROR: ERRMSG may not be duplicated in a DEALLOCATE statement
|
|
Deallocate(x, stat=s, errmsg=ee, errmsg=ee)
|
|
|
|
!ERROR: Component in DEALLOCATE statement may not be coindexed
|
|
deallocate(c[1]%a)
|
|
|
|
End Program deallocatetest
|