derek.holloway
7502bf64a4
CodeQL / Analyze (actions) (push) Canceled after 0s
CodeQL / Analyze (python) (push) Canceled after 0s
pre-commit / pre-commit (push) Canceled after 0s
Multi-Arch CI / setup (push) Canceled after 0s
Publish build_manylinux_x86_64 images / publish_build_manylinux_x86_64 (push) Canceled after 0s
Setup (Multi-Arch) / setup (push) Canceled after 0s
Multi-Arch CI / Linux::${{ fromJSON(needs.setup.outputs.linux_build_config || '{}').build_variant_label || 'skip' }} (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish no_rocm_image_ubi10 image / publish_no_rocm_image_ubi10 (push) Canceled after 0s
Multi-Arch CI / Windows::${{ fromJSON(needs.setup.outputs.windows_build_config || '{}').build_variant_label || 'skip' }} (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Multi-Arch CI / Manifest Diff (push) Canceled after 0s
TheRock Manifest Diff Report / Generate Manifest Diff Report (push) Canceled after 0s
Multi-Arch CI / CI Summary (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04 (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04_ocl_rt images / publish_no_rocm_image_ubuntu24_04_ocl_rt (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_rocgdb (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04_rocgdb images / publish_no_rocm_image_ubuntu24_04_rocgdb (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_ocl_rt (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Unit Tests / Unit Tests :: ubuntu-24.04 (push) Canceled after 0s
Unit Tests / Unit Tests :: windows-2022 (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_media (push) Canceled after 0s
Unit Tests / Unit Tests Summary (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_openmpi (push) Canceled after 0s
79 lines
3.9 KiB
Fortran
79 lines
3.9 KiB
Fortran
! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s
|
|
! Sometimes associations with named constants involving non-default
|
|
! lower bounds expose those bounds to LBOUND()/UBOUND(), sometimes
|
|
! they do not.
|
|
subroutine s(n)
|
|
integer, intent(in) :: n
|
|
type t
|
|
real component(0:1,2:3)
|
|
end type
|
|
real, parameter :: abcd(2,2) = reshape([1.,2.,3.,4.], shape(abcd))
|
|
real, parameter :: namedConst1(-1:0,-2:-1) = abcd
|
|
type(t), parameter :: namedConst2 = t(abcd)
|
|
type(t), parameter :: namedConst3(2:3,3:4) = reshape([(namedConst2,j=1,size(namedConst3))], shape(namedConst3))
|
|
!CHECK: PRINT *, [INTEGER(4)::1_4,1_4], [INTEGER(4)::2_4,2_4], [INTEGER(4)::2_4,2_4]
|
|
print *, lbound(abcd), ubound(abcd), shape(abcd)
|
|
!CHECK: PRINT *, [INTEGER(4)::-1_4,-2_4], [INTEGER(4)::0_4,-1_4], [INTEGER(4)::2_4,2_4]
|
|
print *, lbound(namedConst1), ubound(namedConst1), shape(namedConst1)
|
|
!CHECK: PRINT *, [INTEGER(4)::0_4,2_4], [INTEGER(4)::1_4,3_4], [INTEGER(4)::2_4,2_4]
|
|
print *, lbound(namedConst2%component), ubound(namedConst2%component), shape(namedConst2%component)
|
|
!CHECK: PRINT *, [INTEGER(4)::2_4,3_4], [INTEGER(4)::3_4,4_4], [INTEGER(4)::2_4,2_4]
|
|
print *, lbound(namedConst3), ubound(namedConst3), shape(namedConst3)
|
|
!CHECK: PRINT *, [INTEGER(4)::0_4,2_4], [INTEGER(4)::1_4,3_4], [INTEGER(4)::2_4,2_4]
|
|
print *, lbound(namedConst3(n,n)%component), ubound(namedConst3(n,n)%component), shape(namedConst3(n,n)%component)
|
|
!CHECK: PRINT *, [INTEGER(4)::1_4,1_4], [INTEGER(4)::2_4,2_4], [INTEGER(4)::2_4,2_4]
|
|
print *, lbound(namedConst3%component(0,2)), ubound(namedConst3%component(0,2)), shape(namedConst3%component(0,2))
|
|
associate (a => abcd)
|
|
!CHECK: PRINT *, [INTEGER(4)::1_4,1_4], [INTEGER(4)::2_4,2_4], [INTEGER(4)::2_4,2_4]
|
|
print *, lbound(a), ubound(a), shape(a)
|
|
end associate
|
|
associate (a => namedConst1)
|
|
!CHECK: PRINT *, [INTEGER(4)::-1_4,-2_4], [INTEGER(4)::0_4,-1_4], [INTEGER(4)::2_4,2_4]
|
|
print *, lbound(a), ubound(a), shape(a)
|
|
end associate
|
|
associate (a => (namedConst1))
|
|
!CHECK: PRINT *, [INTEGER(4)::1_4,1_4], [INTEGER(4)::2_4,2_4], [INTEGER(4)::2_4,2_4]
|
|
print *, lbound(a), ubound(a), shape(a)
|
|
end associate
|
|
associate (a => namedConst1 * 2.)
|
|
!CHECK: PRINT *, [INTEGER(4)::1_4,1_4], [INTEGER(4)::2_4,2_4], [INTEGER(4)::2_4,2_4]
|
|
print *, lbound(a), ubound(a), shape(a)
|
|
end associate
|
|
associate (a => namedConst2%component)
|
|
!CHECK: PRINT *, [INTEGER(4)::0_4,2_4], [INTEGER(4)::1_4,3_4], [INTEGER(4)::2_4,2_4]
|
|
print *, lbound(a), ubound(a), shape(a)
|
|
end associate
|
|
associate (a => (namedConst2%component))
|
|
!CHECK: PRINT *, [INTEGER(4)::1_4,1_4], [INTEGER(4)::2_4,2_4], [INTEGER(4)::2_4,2_4]
|
|
print *, lbound(a), ubound(a), shape(a)
|
|
end associate
|
|
associate (a => namedConst2%component * 2.)
|
|
!CHECK: PRINT *, [INTEGER(4)::1_4,1_4], [INTEGER(4)::2_4,2_4], [INTEGER(4)::2_4,2_4]
|
|
print *, lbound(a), ubound(a), shape(a)
|
|
end associate
|
|
associate (a => namedConst3)
|
|
!CHECK: PRINT *, [INTEGER(4)::2_4,3_4], [INTEGER(4)::3_4,4_4], [INTEGER(4)::2_4,2_4]
|
|
print *, lbound(a), ubound(a), shape(a)
|
|
end associate
|
|
associate (a => (namedConst3))
|
|
!CHECK: PRINT *, [INTEGER(4)::1_4,1_4], [INTEGER(4)::2_4,2_4], [INTEGER(4)::2_4,2_4]
|
|
print *, lbound(a), ubound(a), shape(a)
|
|
end associate
|
|
associate (a => namedConst3(n,n)%component)
|
|
!CHECK: PRINT *, [INTEGER(4)::0_4,2_4], [INTEGER(4)::1_4,3_4], [INTEGER(4)::2_4,2_4]
|
|
print *, lbound(a), ubound(a), shape(a)
|
|
end associate
|
|
associate (a => (namedConst3(n,n)%component))
|
|
!CHECK: PRINT *, [INTEGER(4)::1_4,1_4], [INTEGER(4)::2_4,2_4], [INTEGER(4)::2_4,2_4]
|
|
print *, lbound(a), ubound(a), shape(a)
|
|
end associate
|
|
associate (a => namedConst3(n,n)%component * 2.)
|
|
!CHECK: PRINT *, [INTEGER(4)::1_4,1_4], [INTEGER(4)::2_4,2_4], [INTEGER(4)::2_4,2_4]
|
|
print *, lbound(a), ubound(a), shape(a)
|
|
end associate
|
|
associate (a => namedConst3%component(0,2))
|
|
!CHECK: PRINT *, [INTEGER(4)::1_4,1_4], [INTEGER(4)::2_4,2_4], [INTEGER(4)::2_4,2_4]
|
|
print *, lbound(a), ubound(a), shape(a)
|
|
end associate
|
|
end
|