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).
109 lines
2.4 KiB
Fortran
109 lines
2.4 KiB
Fortran
! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s
|
|
! Tests rules of 15.5.5.2 for generics and explicit intrinsics
|
|
! competing at various scoping levels.
|
|
module m1
|
|
private
|
|
public abs
|
|
interface abs
|
|
module procedure :: abs_int_redef, abs_noargs
|
|
end interface
|
|
contains
|
|
integer function abs_int_redef(j)
|
|
integer, intent(in) :: j
|
|
abs_int_redef = j
|
|
end function
|
|
integer function abs_noargs()
|
|
abs_noargs = 0
|
|
end function
|
|
end module
|
|
|
|
module m2
|
|
private
|
|
public abs
|
|
interface abs
|
|
module procedure abs_real_redef
|
|
end interface
|
|
contains
|
|
real function abs_real_redef(x)
|
|
real, intent(in) :: x
|
|
abs_real_redef = x
|
|
end function
|
|
end module
|
|
|
|
module m3
|
|
use m1, only: abs
|
|
implicit none
|
|
contains
|
|
subroutine test1
|
|
use m2, only: abs
|
|
!CHECK: abs_int_redef(
|
|
print *, abs(1)
|
|
!CHECK: abs_real_redef(
|
|
print *, abs(1.)
|
|
!CHECK: 1.41421353816986083984375_4
|
|
print *, abs((1,1))
|
|
!CHECK: abs_noargs(
|
|
print *, abs()
|
|
end subroutine
|
|
subroutine test2
|
|
intrinsic abs ! override some of module's use of m1
|
|
block
|
|
use m2, only: abs
|
|
!CHECK: 1_4
|
|
print *, abs(1)
|
|
!CHECK: abs_real_redef(
|
|
print *, abs(1.)
|
|
!CHECK: 1.41421353816986083984375_4
|
|
print *, abs((1,1))
|
|
!CHECK: abs_noargs(
|
|
print *, abs()
|
|
end block
|
|
end subroutine
|
|
subroutine test3
|
|
interface abs
|
|
module procedure abs_complex_redef ! extend module's use of m1
|
|
end interface
|
|
!CHECK: abs_int_redef(
|
|
print *, abs(1)
|
|
!CHECK: 1._4
|
|
print *, abs(1.)
|
|
!CHECK: abs_complex_redef(
|
|
print *, abs((1,1))
|
|
!CHECK: abs_noargs(
|
|
print *, abs()
|
|
block
|
|
intrinsic abs ! override the extension
|
|
!CHECK: 1.41421353816986083984375_4
|
|
print *, abs((1,1))
|
|
end block
|
|
end subroutine
|
|
real function abs_complex_redef(z)
|
|
complex, intent(in) :: z
|
|
abs_complex_redef = z
|
|
end function
|
|
subroutine test4
|
|
!CHECK: abs(
|
|
print *, abs(1)
|
|
contains
|
|
integer function abs(n) ! override module's use of m1
|
|
integer, intent(in) :: n
|
|
abs = n
|
|
end function
|
|
end subroutine
|
|
end module
|
|
|
|
module m4
|
|
contains
|
|
integer function abs(n)
|
|
integer, intent(in) :: n
|
|
abs = n
|
|
end function
|
|
subroutine test5
|
|
interface abs
|
|
module procedure abs ! same name, host-associated
|
|
end interface
|
|
!CHECK: abs(
|
|
print *, abs(1)
|
|
end subroutine
|
|
end module
|