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).
253 lines
6.5 KiB
Fortran
253 lines
6.5 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! Pointer assignment constraints 10.2.2.2
|
|
|
|
module m1
|
|
type :: t(k)
|
|
integer, kind :: k
|
|
end type
|
|
type t2
|
|
sequence
|
|
real :: t2Field
|
|
real, pointer :: t2FieldPtr
|
|
end type
|
|
type t3
|
|
type(t2) :: t3Field
|
|
type(t2), pointer :: t3FieldPtr
|
|
end type
|
|
contains
|
|
|
|
! C852
|
|
subroutine s0
|
|
!ERROR: 'p1' may not have both the POINTER and TARGET attributes
|
|
real, pointer :: p1, p3
|
|
!ERROR: 'p2' may not have both the POINTER and ALLOCATABLE attributes
|
|
allocatable :: p2
|
|
!ERROR: 'sin' may not have both the POINTER and INTRINSIC attributes
|
|
real, intrinsic, pointer :: sin
|
|
target :: p1
|
|
pointer :: p2
|
|
!ERROR: 'a' may not have the POINTER attribute because it is a coarray
|
|
real, pointer :: a(:)[*]
|
|
end
|
|
|
|
! C1015
|
|
subroutine s1
|
|
real, target :: r
|
|
real(8), target :: r8
|
|
logical, target :: l
|
|
real, pointer :: p
|
|
p => r
|
|
!ERROR: Target type REAL(8) is not compatible with pointer type REAL(4)
|
|
p => r8
|
|
!ERROR: Target type LOGICAL(4) is not compatible with pointer type REAL(4)
|
|
p => l
|
|
end
|
|
|
|
! C1019
|
|
subroutine s2
|
|
real, target :: r1(4), r2(4,4)
|
|
real, pointer :: p(:)
|
|
p => r1
|
|
!ERROR: Pointer has rank 1 but target has rank 2
|
|
p => r2
|
|
end
|
|
|
|
! C1015
|
|
subroutine s3
|
|
type(t(1)), target :: x1
|
|
type(t(2)), target :: x2
|
|
type(t(1)), pointer :: p
|
|
p => x1
|
|
!ERROR: Target type t(k=2_4) is not compatible with pointer type t(k=1_4)
|
|
p => x2
|
|
end
|
|
|
|
! C1016
|
|
subroutine s4(x)
|
|
class(*), target :: x
|
|
type(t(1)), pointer :: p1
|
|
type(t2), pointer :: p2
|
|
class(*), pointer :: p3
|
|
real, pointer :: p4
|
|
p2 => x ! OK - not extensible
|
|
p3 => x ! OK - unlimited polymorphic
|
|
!ERROR: Pointer type must be unlimited polymorphic or non-extensible derived type when target is unlimited polymorphic
|
|
p1 => x
|
|
!ERROR: Pointer type must be unlimited polymorphic or non-extensible derived type when target is unlimited polymorphic
|
|
p4 => x
|
|
end
|
|
|
|
! C1020
|
|
subroutine s5
|
|
real, target, save :: x[*]
|
|
real, target, volatile, save :: y[*]
|
|
real, pointer :: p
|
|
real, pointer, volatile :: q
|
|
p => x
|
|
!ERROR: Pointer must be VOLATILE when target is a VOLATILE coarray
|
|
!ERROR: VOLATILE target associated with non-VOLATILE pointer [-Wnon-volatile-pointer-to-volatile]
|
|
p => y
|
|
!ERROR: Pointer may not be VOLATILE when target is a non-VOLATILE coarray
|
|
q => x
|
|
q => y
|
|
end
|
|
|
|
! C1021, C1023
|
|
subroutine s6
|
|
real, target :: x
|
|
real :: p
|
|
type :: tp
|
|
real, pointer :: a
|
|
real :: b
|
|
end type
|
|
type(tp) :: y
|
|
!ERROR: The left-hand side of a pointer assignment is not definable
|
|
!BECAUSE: 'p' is not a pointer
|
|
p => x
|
|
y%a => x
|
|
!ERROR: The left-hand side of a pointer assignment is not definable
|
|
!BECAUSE: 'b' is not a pointer
|
|
y%b => x
|
|
end
|
|
|
|
!C1025 (R1037) The expr shall be a designator that designates a
|
|
!variable with either the TARGET or POINTER attribute and is not
|
|
!an array section with a vector subscript, or it shall be a reference
|
|
!to a function that returns a data pointer.
|
|
subroutine s7
|
|
real, target :: a
|
|
real, pointer :: b
|
|
real, pointer :: c
|
|
real :: d
|
|
b => a
|
|
c => b
|
|
!ERROR: In assignment to object pointer 'b', the target 'd' is not an object with POINTER or TARGET attributes
|
|
b => d
|
|
end
|
|
|
|
! C1025
|
|
subroutine s8
|
|
real :: a(10)
|
|
integer :: b(10)
|
|
real, pointer :: p(:)
|
|
!ERROR: An array section with a vector subscript may not be a pointer target
|
|
p => a(b)
|
|
end
|
|
|
|
! C1025
|
|
subroutine s9
|
|
real, target :: x
|
|
real, pointer :: p
|
|
p => f1()
|
|
!ERROR: pointer 'p' is associated with the result of a reference to function 'f2' that is a not a pointer
|
|
p => f2()
|
|
contains
|
|
function f1()
|
|
real, pointer :: f1
|
|
f1 => x
|
|
end
|
|
function f2()
|
|
real :: f2
|
|
f2 = x
|
|
end
|
|
end
|
|
|
|
! F'2023 C1029 A data-target shall not be a coindexed object.
|
|
subroutine s10
|
|
real, target, save :: a[*]
|
|
real, pointer :: b
|
|
!ERROR: A coindexed object may not be a pointer target
|
|
b => a[1]
|
|
end
|
|
|
|
! F'2023 C1027 the LHS may not be coindexed
|
|
subroutine s11
|
|
type t
|
|
real, pointer :: p
|
|
end type
|
|
type(t), save :: ca[*]
|
|
real, target :: x
|
|
!ERROR: The left-hand side of a pointer assignment must not be coindexed
|
|
ca[1]%p => x
|
|
end
|
|
|
|
subroutine s12
|
|
real, volatile, target :: x
|
|
real, pointer :: p
|
|
real, pointer, volatile :: q
|
|
!ERROR: VOLATILE target associated with non-VOLATILE pointer [-Wnon-volatile-pointer-to-volatile]
|
|
p => x
|
|
q => x
|
|
end
|
|
|
|
subroutine s13
|
|
type(t3), target, volatile :: y = t3(t2(4.4))
|
|
real, pointer :: p1
|
|
type(t2), pointer :: p2
|
|
type(t3), pointer :: p3
|
|
real, pointer, volatile :: q1
|
|
type(t2), pointer, volatile :: q2
|
|
type(t3), pointer, volatile :: q3
|
|
!ERROR: VOLATILE target associated with non-VOLATILE pointer [-Wnon-volatile-pointer-to-volatile]
|
|
p1 => y%t3Field%t2Field
|
|
!ERROR: VOLATILE target associated with non-VOLATILE pointer [-Wnon-volatile-pointer-to-volatile]
|
|
p2 => y%t3Field
|
|
!ERROR: VOLATILE target associated with non-VOLATILE pointer [-Wnon-volatile-pointer-to-volatile]
|
|
p3 => y
|
|
!OK:
|
|
q1 => y%t3Field%t2Field
|
|
!OK:
|
|
q2 => y%t3Field
|
|
!OK:
|
|
q3 => y
|
|
!ERROR: VOLATILE target associated with non-VOLATILE pointer [-Wnon-volatile-pointer-to-volatile]
|
|
p3%t3FieldPtr => y%t3Field
|
|
!ERROR: VOLATILE target associated with non-VOLATILE pointer [-Wnon-volatile-pointer-to-volatile]
|
|
p3%t3FieldPtr%t2FieldPtr => y%t3Field%t2Field
|
|
!OK
|
|
q3%t3FieldPtr => y%t3Field
|
|
!OK
|
|
q3%t3FieldPtr%t2FieldPtr => y%t3Field%t2Field
|
|
end
|
|
end
|
|
|
|
module m2
|
|
type :: t1
|
|
real :: a
|
|
end type
|
|
type :: t2
|
|
type(t1) :: b
|
|
type(t1), pointer :: c
|
|
real :: d
|
|
end type
|
|
end
|
|
|
|
subroutine s2
|
|
use m2
|
|
real, pointer :: p
|
|
type(t2), target :: x
|
|
type(t2) :: y
|
|
!OK: x has TARGET attribute
|
|
p => x%b%a
|
|
!OK: c has POINTER attribute
|
|
p => y%c%a
|
|
!ERROR: In assignment to object pointer 'p', the target 'y%b%a' is not an object with POINTER or TARGET attributes
|
|
p => y%b%a
|
|
associate(z => x%b)
|
|
!OK: x has TARGET attribute
|
|
p => z%a
|
|
end associate
|
|
associate(z => y%c)
|
|
!OK: c has POINTER attribute
|
|
p => z%a
|
|
end associate
|
|
associate(z => y%b)
|
|
!ERROR: In assignment to object pointer 'p', the target 'z%a' is not an object with POINTER or TARGET attributes
|
|
p => z%a
|
|
end associate
|
|
associate(z => y%b%a)
|
|
!ERROR: In assignment to object pointer 'p', the target 'z' is not an object with POINTER or TARGET attributes
|
|
p => z
|
|
end associate
|
|
end
|