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
54 lines
2.7 KiB
Fortran
54 lines
2.7 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic
|
|
! Fortran syntax considers signed int literals in complex literals
|
|
! to be a distinct production, not an application of unary +/- to
|
|
! an unsigned int literal, so they're used here to test overflow
|
|
! on signed int literal constants. The literals are tested here
|
|
! as part of expressions that name resolution must analyze.
|
|
|
|
complex, parameter :: okj1 = 127_1, okz1 = (+127_1, -128_1)
|
|
!ERROR: Integer literal is too large for INTEGER(KIND=1)
|
|
complex, parameter :: badj1 = 128_1
|
|
!ERROR: Integer literal is too large for INTEGER(KIND=1)
|
|
complex, parameter :: badz1 = (+128_1, 0)
|
|
complex, parameter :: okj1a = 128_2
|
|
complex, parameter :: okz1a = (+128_2, 0)
|
|
|
|
complex, parameter :: okj2 = 32767_2, okz2 = (+32767_2, -32768_2)
|
|
!ERROR: Integer literal is too large for INTEGER(KIND=2)
|
|
complex, parameter :: badj2 = 32768_2
|
|
!ERROR: Integer literal is too large for INTEGER(KIND=2)
|
|
complex, parameter :: badz2 = (+32768_2, 0)
|
|
complex, parameter :: okj2a = 32768_4
|
|
complex, parameter :: okz2a = (+32768_4, 0)
|
|
|
|
complex, parameter :: okj4 = 2147483647_4, okz4 = (+2147483647_4, -2147483648_4)
|
|
!ERROR: Integer literal is too large for INTEGER(KIND=4)
|
|
complex, parameter :: badj4 = 2147483648_4
|
|
!ERROR: Integer literal is too large for INTEGER(KIND=4)
|
|
complex, parameter :: badz4 = (+2147483648_4, 0)
|
|
complex, parameter :: okj4a = 2147483648_8
|
|
complex, parameter :: okz4a = (+2147483648_8, 0)
|
|
|
|
complex, parameter :: okj4d = 2147483647, okz4d = (+2147483647, -2147483648)
|
|
!WARNING: Integer literal is too large for default INTEGER(KIND=4); assuming INTEGER(KIND=8) [-Wbig-int-literals]
|
|
complex, parameter :: badj4dext = 2147483648
|
|
!WARNING: Integer literal is too large for default INTEGER(KIND=4); assuming INTEGER(KIND=8) [-Wbig-int-literals]
|
|
complex, parameter :: badz4dext = (+2147483648, 0)
|
|
|
|
complex, parameter :: okj8 = 9223372036854775807_8, okz8 = (+9223372036854775807_8, -9223372036854775808_8)
|
|
!ERROR: Integer literal is too large for INTEGER(KIND=8)
|
|
complex, parameter :: badj8 = 9223372036854775808_8
|
|
!ERROR: Integer literal is too large for INTEGER(KIND=8)
|
|
complex, parameter :: badz8 = (+9223372036854775808_8, 0)
|
|
complex, parameter :: okj8a = 9223372036854775808_16
|
|
complex, parameter :: okz8a = (+9223372036854775808_16, 0)
|
|
|
|
complex, parameter :: okj16 = 170141183460469231731687303715884105727_16
|
|
complex, parameter :: okz16 = (+170141183460469231731687303715884105727_16, -170141183460469231731687303715884105728_16)
|
|
!ERROR: Integer literal is too large for INTEGER(KIND=16)
|
|
complex, parameter :: badj16 = 170141183460469231731687303715884105728_16
|
|
!ERROR: Integer literal is too large for INTEGER(KIND=16)
|
|
complex, parameter :: badz16 = (+170141183460469231731687303715884105728_16, 0)
|
|
|
|
end
|