40 lines · plain
1! Test correct lowering of 128 bit integer parameters.2! RUN: bbc -emit-fir %s -o - | FileCheck %s3 4program i1285 integer(16), parameter :: maxi64 = 9223372036854775807_166 integer(16), parameter :: mini64 = -9223372036854775808_167 integer(16), parameter :: maxi128 = 170141183460469231731687303715884105727_168 integer(16), parameter :: mini128 = -170141183460469231731687303715884105728_169 integer(16), parameter :: x = 9223372036854775808_1610 integer(16), parameter :: y = -9223372036854775809_1611 integer(16), parameter :: z = 0_1612 print*,x13 print*,y14end15 16! CHECK-LABEL: func.func @_QQmain() attributes {fir.bindc_name = "I128"} {17! CHECK-COUNT-2: %{{.*}} = fir.call @_FortranAioOutputInteger128(%{{.*}}, %{{.*}}) {{.*}}: (!fir.ref<i8>, i128) -> i118 19 20! CHECK-LABEL: fir.global internal @_QFECmaxi128 constant : i128 {21! CHECK-NEXT: %{{.*}} = arith.constant 170141183460469231731687303715884105727 : i12822 23! CHECK-LABEL: fir.global internal @_QFECmaxi64 constant : i128 {24! CHECK-NEXT: %{{.*}} = arith.constant 9223372036854775807 : i12825 26! CHECK-LABEL: fir.global internal @_QFECmini128 constant : i128 {27! CHECK-NEXT: %{{.*}} = arith.constant -170141183460469231731687303715884105728 : i12828 29! CHECK-LABEL: fir.global internal @_QFECmini64 constant : i128 {30! CHECK-NEXT: %{{.*}} = arith.constant -9223372036854775808 : i12831 32! CHECK-LABEL: fir.global internal @_QFECx constant : i128 {33! CHECK-NEXT: %{{.*}} = arith.constant 9223372036854775808 : i12834 35! CHECK-LABEL: fir.global internal @_QFECy constant : i128 {36! CHECK-NEXT: %{{.*}} = arith.constant -9223372036854775809 : i12837 38! CHECK-LABEL: fir.global internal @_QFECz constant : i128 {39! CHECK-NEXT: %{{.*}} = arith.constant 0 : i12840