vasilito
cb424d7448
verify-patch-sanity.py validates every active recipe .patch has internally- consistent hunk line counts — catching the 'malformed patch at line N' failure at commit/CI/preflight time instead of hours into a cook. This cycle hit that class three times (qtwaylandscanner, sddm, xwayland), each only discovered when cookbook tried to apply the patch. Running it across the repo found 29 latent malformed patches (validated against GNU patch: e.g. relibc/P3-sysv-ipc reproduces 'malformed patch at line 22'). They were harmless only because they sit in vendored recipes (baked, not re- applied) — but would fail on any version-bump re-derivation. --fix recounts the hunk headers (body untouched) and repaired all 29. Wired into build-preflight.sh (Phase 1.0D) and redbear-ci.yml, with a unit test (test-patch-sanity.sh). Skips archived/legacy trees and unvalidatable formats (empty placeholders, bare-@@ git hunks).
115 lines
5.2 KiB
Fortran
115 lines
5.2 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! Test 15.7 C1594 - prohibited assignments in pure subprograms
|
|
|
|
module used
|
|
real :: useassociated
|
|
end module
|
|
|
|
module m
|
|
type :: t
|
|
sequence
|
|
real :: a
|
|
end type
|
|
type(t), target :: x
|
|
type :: hasPtr
|
|
real, pointer :: p
|
|
end type
|
|
type :: hasCoarray
|
|
real, allocatable :: co[:]
|
|
end type
|
|
type :: hasHiddenPtr
|
|
type(hasPtr), allocatable :: a
|
|
end type
|
|
contains
|
|
integer pure function purefunc(x)
|
|
integer, intent(in) :: x
|
|
purefunc = x
|
|
end function
|
|
integer pure function f00(p0)
|
|
procedure(purefunc) :: p0
|
|
f00 = p0(1)
|
|
end function
|
|
pure function test(ptr, in, hpd, hhpd)
|
|
use used
|
|
type(t), pointer :: ptr, ptr2
|
|
type(t), target, intent(in) :: in
|
|
type(t), target :: y, z
|
|
type(hasPtr) :: hp
|
|
type(hasPtr), intent(in) :: hpd
|
|
type(hasHiddenPtr) :: hhp
|
|
type(hasHiddenPtr), intent(in) :: hhpd
|
|
type(hasPtr), allocatable :: alloc
|
|
type(hasHiddenPtr), allocatable :: hpAlloc
|
|
!ERROR: Pointer 'hcp' may not have a coarray potential component '%co'
|
|
type(hasCoarray), pointer :: hcp
|
|
type(hasCoarray), allocatable :: hca
|
|
integer :: n
|
|
common /block/ y
|
|
external :: extfunc
|
|
!ERROR: Left-hand side of assignment is not definable
|
|
!BECAUSE: 'x' may not be defined in pure subprogram 'test' because it is host-associated
|
|
x%a = 0.
|
|
!ERROR: Left-hand side of assignment is not definable
|
|
!BECAUSE: 'y' may not be defined in pure subprogram 'test' because it is in a COMMON block
|
|
y%a = 0. ! C1594(1)
|
|
!ERROR: Left-hand side of assignment is not definable
|
|
!BECAUSE: 'useassociated' may not be defined in pure subprogram 'test' because it is USE-associated
|
|
useassociated = 0. ! C1594(1)
|
|
!ERROR: Left-hand side of assignment is not definable
|
|
!BECAUSE: 'ptr' is externally visible via 'ptr' and not definable in a pure subprogram
|
|
ptr%a = 0. ! C1594(1)
|
|
!ERROR: Left-hand side of assignment is not definable
|
|
!BECAUSE: 'in' is an INTENT(IN) dummy argument
|
|
in%a = 0. ! C1594(1)
|
|
!ERROR: Left-hand side of assignment is not definable
|
|
!BECAUSE: A pure subprogram may not define the coindexed object 'hca%co[1_8]'
|
|
hca%co[1] = 0. ! C1594(1)
|
|
!ERROR: The left-hand side of a pointer assignment is not definable
|
|
!BECAUSE: 'ptr' may not be defined in pure subprogram 'test' because it is a POINTER dummy argument of a pure function
|
|
ptr => z ! C1594(2)
|
|
!ERROR: 'ptr' may not appear in NULLIFY
|
|
!BECAUSE: 'ptr' may not be defined in pure subprogram 'test' because it is a POINTER dummy argument of a pure function
|
|
nullify(ptr) ! C1594(2), 19.6.8
|
|
!ERROR: A pure subprogram may not use 'ptr' as the target of pointer assignment because it is a POINTER dummy argument of a pure function
|
|
ptr2 => ptr ! C1594(3)
|
|
!ERROR: A pure subprogram may not use 'in' as the target of pointer assignment because it is an INTENT(IN) dummy argument
|
|
ptr2 => in ! C1594(3)
|
|
!ERROR: A pure subprogram may not use 'y' as the target of pointer assignment because it is in a COMMON block
|
|
ptr2 => y ! C1594(2)
|
|
!ERROR: Externally visible object 'block' may not be associated with pointer component 'p' in a pure procedure
|
|
n = size([hasPtr(y%a)]) ! C1594(4)
|
|
!ERROR: Externally visible object 'x' may not be associated with pointer component 'p' in a pure procedure
|
|
n = size([hasPtr(x%a)]) ! C1594(4)
|
|
!ERROR: Externally visible object 'ptr' may not be associated with pointer component 'p' in a pure procedure
|
|
n = size([hasPtr(ptr%a)]) ! C1594(4)
|
|
!ERROR: Externally visible object 'in' may not be associated with pointer component 'p' in a pure procedure
|
|
n = size([hasPtr(in%a)]) ! C1594(4)
|
|
!ERROR: A pure subprogram may not copy the value of 'hpd' because it is an INTENT(IN) dummy argument and has the POINTER potential subobject component '%p'
|
|
hp = hpd ! C1594(5)
|
|
!ERROR: A pure subprogram may not copy the value of 'hpd' because it is an INTENT(IN) dummy argument and has the POINTER potential subobject component '%p'
|
|
allocate(alloc, source=hpd)
|
|
!ERROR: A pure subprogram may not copy the value of 'hhpd' because it is an INTENT(IN) dummy argument and has the POINTER potential subobject component '%a%p'
|
|
hhp = hhpd
|
|
!ERROR: A pure subprogram may not copy the value of 'hhpd' because it is an INTENT(IN) dummy argument and has the POINTER potential subobject component '%a%p'
|
|
allocate(hpAlloc, source=hhpd)
|
|
!ERROR: Actual procedure argument for dummy argument 'p0=' of a PURE procedure must have an explicit interface
|
|
n = f00(extfunc)
|
|
contains
|
|
pure subroutine internal
|
|
type(hasPtr) :: localhp
|
|
!ERROR: Left-hand side of assignment is not definable
|
|
!BECAUSE: 'z' may not be defined in pure subprogram 'internal' because it is host-associated
|
|
z%a = 0.
|
|
!ERROR: Externally visible object 'z' may not be associated with pointer component 'p' in a pure procedure
|
|
localhp = hasPtr(z%a)
|
|
end subroutine
|
|
end function
|
|
pure subroutine test2(hpd, hhpd)
|
|
use used
|
|
type(hasHiddenPtr), intent(in out) :: hpd, hhpd[*]
|
|
hpd = hhpd ! ok
|
|
!ERROR: A pure subprogram may not copy the value of 'hhpd' because it is coindexed and has the POINTER potential subobject component '%a%p'
|
|
hpd = hhpd[1]
|
|
end subroutine
|
|
end module
|