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
49 lines
2.0 KiB
Fortran
49 lines
2.0 KiB
Fortran
! RUN: %python %S/test_modfile.py %s %flang_fc1 -triple x86_64-unknown-linux-gnu
|
|
! Intrinsics SELECTED_INT_KIND, SELECTED_REAL_KIND, PRECISION, RANGE,
|
|
! RADIX, DIGITS
|
|
! REQUIRES: x86-registered-target
|
|
|
|
module m1
|
|
! REAL(KIND=10) handles 16 <= P < 19 (if available; ifort is KIND=16)
|
|
integer, parameter :: realprec = precision(0._10)
|
|
logical, parameter :: rpreccheck = 18 == realprec
|
|
integer, parameter :: realpvals(*) = [16, 18]
|
|
integer, parameter :: realpkinds(*) = &
|
|
[(selected_real_kind(realpvals(j),0),j=1,size(realpvals))]
|
|
logical, parameter :: realpcheck = all([10, 10] == realpkinds)
|
|
! REAL(KIND=10) handles 308 <= R < 4932 (if available; ifort is KIND=16)
|
|
integer, parameter :: realrange = range(0._10)
|
|
logical, parameter :: rrangecheck = 4931 == realrange
|
|
integer, parameter :: realrvals(*) = [308, 4931]
|
|
integer, parameter :: realrkinds(*) = &
|
|
[(selected_real_kind(0,realrvals(j)),j=1,size(realrvals))]
|
|
logical, parameter :: realrcheck = all([10, 10] == realrkinds)
|
|
logical, parameter :: radixcheck = radix(0._10) == 2
|
|
|
|
integer, parameter :: realdigits = digits(0._10)
|
|
logical, parameter :: realdigitscheck = 64 == realdigits
|
|
end module m1
|
|
!Expect: m1.mod
|
|
!module m1
|
|
!integer(4),parameter::realprec=18_4
|
|
!intrinsic::precision
|
|
!logical(4),parameter::rpreccheck=.true._4
|
|
!integer(4),parameter::realpvals(1_8:*)=[INTEGER(4)::16_4,18_4]
|
|
!integer(4),parameter::realpkinds(1_8:*)=[INTEGER(4)::10_4,10_4]
|
|
!intrinsic::selected_real_kind
|
|
!intrinsic::size
|
|
!logical(4),parameter::realpcheck=.true._4
|
|
!intrinsic::all
|
|
!integer(4),parameter::realrange=4931_4
|
|
!intrinsic::range
|
|
!logical(4),parameter::rrangecheck=.true._4
|
|
!integer(4),parameter::realrvals(1_8:*)=[INTEGER(4)::308_4,4931_4]
|
|
!integer(4),parameter::realrkinds(1_8:*)=[INTEGER(4)::10_4,10_4]
|
|
!logical(4),parameter::realrcheck=.true._4
|
|
!logical(4),parameter::radixcheck=.true._4
|
|
!intrinsic::radix
|
|
!integer(4),parameter::realdigits=64_4
|
|
!intrinsic::digits
|
|
!logical(4),parameter::realdigitscheck=.true._4
|
|
!end
|