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).
156 lines
7.9 KiB
Fortran
156 lines
7.9 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! C750 Each bound in the explicit-shape-spec shall be a specification
|
|
! expression in which there are no references to specification functions or
|
|
! the intrinsic functions ALLOCATED, ASSOCIATED, EXTENDS_TYPE_OF, PRESENT,
|
|
! or SAME_TYPE_AS, every specification inquiry reference is a constant
|
|
! expression, and the value does not depend on the value of a variable.
|
|
!
|
|
! C754 Each type-param-value within a component-def-stmt shall be a colon or
|
|
! a specification expression in which there are no references to specification
|
|
! functions or the intrinsic functions ALLOCATED, ASSOCIATED, EXTENDS_TYPE_OF,
|
|
! PRESENT, or SAME_TYPE_AS, every specification inquiry reference is a
|
|
! constant expression, and the value does not depend on the value of a variable.
|
|
impure function impureFunc()
|
|
integer :: impureFunc
|
|
|
|
impureFunc = 3
|
|
end function impureFunc
|
|
|
|
pure function iPureFunc()
|
|
integer :: iPureFunc
|
|
|
|
iPureFunc = 3
|
|
end function iPureFunc
|
|
|
|
module m
|
|
real, allocatable :: mVar
|
|
end module m
|
|
|
|
subroutine s(iArg, allocArg, pointerArg, arrayArg, ioArg, optionalArg)
|
|
! C750
|
|
use m
|
|
implicit logical(l)
|
|
integer, intent(in) :: iArg
|
|
real, allocatable, intent(in) :: allocArg
|
|
real, pointer, intent(in) :: pointerArg
|
|
integer, dimension(:), intent(in) :: arrayArg
|
|
integer, intent(inout) :: ioArg
|
|
real, optional, intent(in) :: optionalArg
|
|
|
|
! These declarations are OK since they're not in a derived type
|
|
real :: realVar
|
|
real, volatile :: volatileVar
|
|
real, dimension(merge(1, 2, allocated(allocArg))) :: realVar1
|
|
real, dimension(merge(1, 2, associated(pointerArg))) :: realVar2
|
|
real, dimension(merge(1, 2, is_contiguous(arrayArg))) :: realVar3
|
|
real, dimension(ioArg) :: realVar4
|
|
real, dimension(merge(1, 2, present(optionalArg))) :: realVar5
|
|
|
|
! statement functions referenced below
|
|
iVolatileStmtFunc() = 3 * volatileVar
|
|
iImpureStmtFunc() = 3 * impureFunc()
|
|
iPureStmtFunc() = 3 * iPureFunc()
|
|
|
|
! This is OK
|
|
real, dimension(merge(1, 2, allocated(mVar))) :: rVar
|
|
|
|
integer :: var = 3
|
|
!ERROR: Invalid specification expression: reference to impure function 'ivolatilestmtfunc'
|
|
real, dimension(iVolatileStmtFunc()) :: arrayVarWithVolatile
|
|
!ERROR: Invalid specification expression: reference to impure function 'iimpurestmtfunc'
|
|
real, dimension(iImpureStmtFunc()) :: arrayVarWithImpureFunction
|
|
!ERROR: Invalid specification expression: reference to statement function 'ipurestmtfunc'
|
|
real, dimension(iPureStmtFunc()) :: arrayVarWithPureFunction
|
|
real, dimension(iabs(iArg)) :: arrayVarWithIntrinsic
|
|
|
|
type arrayType
|
|
!ERROR: Invalid specification expression: derived type component or type parameter value not allowed to reference variable 'var'
|
|
real, dimension(var) :: varField
|
|
!ERROR: Invalid specification expression: reference to impure function 'ivolatilestmtfunc'
|
|
real, dimension(iVolatileStmtFunc()) :: arrayFieldWithVolatile
|
|
!ERROR: Invalid specification expression: reference to impure function 'iimpurestmtfunc'
|
|
real, dimension(iImpureStmtFunc()) :: arrayFieldWithImpureFunction
|
|
!ERROR: Invalid specification expression: reference to statement function 'ipurestmtfunc'
|
|
real, dimension(iPureStmtFunc()) :: arrayFieldWithPureFunction
|
|
!ERROR: Invalid specification expression: derived type component or type parameter value not allowed to reference variable 'iarg'
|
|
real, dimension(iabs(iArg)) :: arrayFieldWithIntrinsic
|
|
!ERROR: Invalid specification expression: reference to intrinsic 'allocated' not allowed for derived type components or type parameter values
|
|
real, dimension(merge(1, 2, allocated(allocArg))) :: realField1
|
|
!ERROR: Invalid specification expression: reference to intrinsic 'associated' not allowed for derived type components or type parameter values
|
|
real, dimension(merge(1, 2, associated(pointerArg))) :: realField2
|
|
!ERROR: Invalid specification expression: non-constant reference to inquiry intrinsic 'is_contiguous' not allowed for derived type components or type parameter values
|
|
real, dimension(merge(1, 2, is_contiguous(arrayArg))) :: realField3
|
|
!ERROR: Invalid specification expression: derived type component or type parameter value not allowed to reference variable 'ioarg'
|
|
real, dimension(ioArg) :: realField4
|
|
!ERROR: Invalid specification expression: reference to intrinsic 'present' not allowed for derived type components or type parameter values
|
|
real, dimension(merge(1, 2, present(optionalArg))) :: realField5
|
|
end type arrayType
|
|
|
|
end subroutine s
|
|
|
|
subroutine s1()
|
|
! C750, check for a constant specification inquiry that's a type parameter
|
|
! inquiry which are defined in 9.4.5
|
|
type derived(kindParam, lenParam)
|
|
integer, kind :: kindParam = 3
|
|
integer, len :: lenParam = 3
|
|
end type
|
|
|
|
contains
|
|
subroutine inner (derivedArg)
|
|
type(derived), intent(in), dimension(3) :: derivedArg
|
|
integer :: localInt
|
|
|
|
type(derived), parameter :: localderived = derived()
|
|
|
|
type localDerivedType
|
|
! OK because the specification inquiry is a constant
|
|
integer, dimension(localDerived%kindParam) :: goodField
|
|
! OK because the value of lenParam is constant in this context
|
|
integer, dimension(derivedArg%lenParam) :: badField
|
|
end type localDerivedType
|
|
|
|
! OK because we're not defining a component
|
|
integer, dimension(derivedArg%kindParam) :: localVar
|
|
end subroutine inner
|
|
end subroutine s1
|
|
|
|
subroutine s2(iArg, allocArg, pointerArg, arrayArg, optionalArg)
|
|
! C754
|
|
integer, intent(in) :: iArg
|
|
real, allocatable, intent(in) :: allocArg
|
|
real, pointer, intent(in) :: pointerArg
|
|
integer, dimension(:), intent(in) :: arrayArg
|
|
real, optional, intent(in) :: optionalArg
|
|
|
|
type paramType(lenParam)
|
|
integer, len :: lenParam = 4
|
|
end type paramType
|
|
|
|
type charType
|
|
!ERROR: Invalid specification expression: derived type component or type parameter value not allowed to reference variable 'iarg'
|
|
character(iabs(iArg)) :: fieldWithIntrinsic
|
|
!ERROR: Invalid specification expression: reference to intrinsic 'allocated' not allowed for derived type components or type parameter values
|
|
character(merge(1, 2, allocated(allocArg))) :: allocField
|
|
!ERROR: Invalid specification expression: reference to intrinsic 'associated' not allowed for derived type components or type parameter values
|
|
character(merge(1, 2, associated(pointerArg))) :: assocField
|
|
!ERROR: Invalid specification expression: non-constant reference to inquiry intrinsic 'is_contiguous' not allowed for derived type components or type parameter values
|
|
character(merge(1, 2, is_contiguous(arrayArg))) :: contigField
|
|
!ERROR: Invalid specification expression: reference to intrinsic 'present' not allowed for derived type components or type parameter values
|
|
character(merge(1, 2, present(optionalArg))) :: presentField
|
|
end type charType
|
|
|
|
type derivedType
|
|
!ERROR: Invalid specification expression: derived type component or type parameter value not allowed to reference variable 'iarg'
|
|
type(paramType(iabs(iArg))) :: fieldWithIntrinsic
|
|
!ERROR: Invalid specification expression: reference to intrinsic 'allocated' not allowed for derived type components or type parameter values
|
|
type(paramType(merge(1, 2, allocated(allocArg)))) :: allocField
|
|
!ERROR: Invalid specification expression: reference to intrinsic 'associated' not allowed for derived type components or type parameter values
|
|
type(paramType(merge(1, 2, associated(pointerArg)))) :: assocField
|
|
!ERROR: Invalid specification expression: non-constant reference to inquiry intrinsic 'is_contiguous' not allowed for derived type components or type parameter values
|
|
type(paramType(merge(1, 2, is_contiguous(arrayArg)))) :: contigField
|
|
!ERROR: Invalid specification expression: reference to intrinsic 'present' not allowed for derived type components or type parameter values
|
|
type(paramType(merge(1, 2, present(optionalArg)))) :: presentField
|
|
end type derivedType
|
|
end subroutine s2
|