xref: /llvm-project/flang/test/Lower/big-integer-parameter.f90 (revision 2c53840199b6105431a2542d1c71e7581c273341) 
1! Test correct lowering of 128 bit integer parameters.
2! RUN: bbc -emit-fir %s -o - | FileCheck %s
3
4program i128
5  integer(16), parameter :: maxi64 = 9223372036854775807_16
6  integer(16), parameter :: mini64 = -9223372036854775808_16
7  integer(16), parameter :: maxi128 = 170141183460469231731687303715884105727_16
8  integer(16), parameter :: mini128 = -170141183460469231731687303715884105728_16
9  integer(16), parameter :: x = 9223372036854775808_16
10  integer(16), parameter :: y = -9223372036854775809_16
11  integer(16), parameter :: z = 0_16
12  print*,x
13  print*,y
14end
15
16! CHECK-LABEL: func.func @_QQmain() attributes {fir.bindc_name = "i128"} {
17! CHECK-COUNT-2:  %{{.*}} = fir.call @_FortranAioOutputInteger128(%{{.*}}, %{{.*}}) {{.*}}: (!fir.ref<i8>, i128) -> i1
18
19
20! CHECK-LABEL: fir.global internal @_QFECmaxi128 constant : i128 {
21! CHECK-NEXT: %{{.*}} = arith.constant 170141183460469231731687303715884105727 : i128
22
23! CHECK-LABEL: fir.global internal @_QFECmaxi64 constant : i128 {
24! CHECK-NEXT:   %{{.*}} = arith.constant 9223372036854775807 : i128
25
26! CHECK-LABEL: fir.global internal @_QFECmini128 constant : i128 {
27! CHECK-NEXT: %{{.*}} = arith.constant -170141183460469231731687303715884105728 : i128
28
29! CHECK-LABEL: fir.global internal @_QFECmini64 constant : i128 {
30! CHECK-NEXT: %{{.*}} = arith.constant -9223372036854775808 : i128
31
32! CHECK-LABEL: fir.global internal @_QFECx constant : i128 {
33! CHECK-NEXT:   %{{.*}} = arith.constant 9223372036854775808 : i128
34
35! CHECK-LABEL: fir.global internal @_QFECy constant : i128 {
36! CHECK-NEXT: %{{.*}} = arith.constant -9223372036854775809 : i128
37
38! CHECK-LABEL: fir.global internal @_QFECz constant : i128 {
39! CHECK-NEXT: %{{.*}} = arith.constant 0 : i128
40