a7802a806d
evaluate::IsPointerObject used to return true for pointer suboject like `pointer(10)` while these object are not pointers. This prevented some checks like 15.5.2.7 to be correctly enforced (e.g., it was possible to pass `pointer(10)` to a non intent(in) dummy pointer). After updating IsPointerObject behavior and adding a test for 15.5.2.7 in call07.f90, a test in call03.f90 for 15.5.2.4(14) was failing. It appeared the related semantics check was relying on IsPointerObject to return true for `pointer(10)`. Adapt the code to detect pointer element in another way. While looking at the code, I also noticed that semantics was rejecting `character(1)` pointer/assumed shape suboject when these are allowed (the standard has a special case for character(1) in 15.5.2.4(14), and I verified that other compilers that enforce 15.5.2.4(14) do accept this). Differential Revision: https://reviews.llvm.org/D121377
48 lines
1.7 KiB
Fortran
48 lines
1.7 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! Test 15.5.2.7 constraints and restrictions for POINTER dummy arguments.
|
|
|
|
module m
|
|
real :: coarray(10)[*]
|
|
contains
|
|
|
|
subroutine s01(p)
|
|
real, pointer, contiguous, intent(in) :: p(:)
|
|
end subroutine
|
|
subroutine s02(p)
|
|
real, pointer :: p(:)
|
|
end subroutine
|
|
subroutine s03(p)
|
|
real, pointer, intent(in) :: p(:)
|
|
end subroutine
|
|
subroutine s04(p)
|
|
real, pointer :: p
|
|
end subroutine
|
|
|
|
subroutine test
|
|
!ERROR: CONTIGUOUS POINTER must be an array
|
|
real, pointer, contiguous :: a01 ! C830
|
|
real, pointer :: a02(:)
|
|
real, target :: a03(10)
|
|
real :: a04(10) ! not TARGET
|
|
call s01(a03) ! ok
|
|
!ERROR: Actual argument associated with CONTIGUOUS POINTER dummy argument 'p=' must be simply contiguous
|
|
call s01(a02)
|
|
!ERROR: Actual argument associated with CONTIGUOUS POINTER dummy argument 'p=' must be simply contiguous
|
|
call s01(a03(::2))
|
|
call s02(a02) ! ok
|
|
call s03(a03) ! ok
|
|
!ERROR: Actual argument associated with POINTER dummy argument 'p=' must also be POINTER unless INTENT(IN)
|
|
call s02(a03)
|
|
!ERROR: Actual argument associated with POINTER dummy argument 'p=' must also be POINTER unless INTENT(IN)
|
|
call s04(a02(1))
|
|
!ERROR: An array section with a vector subscript may not be a pointer target
|
|
call s03(a03([1,2,4]))
|
|
!ERROR: A coindexed object may not be a pointer target
|
|
call s03(coarray(:)[1])
|
|
!ERROR: Target associated with dummy argument 'p=' must be a designator or a call to a pointer-valued function
|
|
call s03([1.])
|
|
!ERROR: In assignment to object dummy argument 'p=', the target 'a04' is not an object with POINTER or TARGET attributes
|
|
call s03(a04)
|
|
end subroutine
|
|
end module
|