64ab3302d5
This patch renames the modules in f18 to use a capital letter in the module name Signed-off-by: Caroline Concatto <caroline.concatto@arm.com> Original-commit: flang-compiler/f18@d2eb7a1c44 Reviewed-on: https://github.com/flang-compiler/f18/pull/980
66 lines
1.6 KiB
Fortran
66 lines
1.6 KiB
Fortran
! 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 :: e
|
|
Integer :: pi
|
|
Character(256) :: ee
|
|
Procedure(Real) :: prp
|
|
|
|
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: 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)
|
|
|
|
End Program deallocatetest
|