flang/test/Lower/big-integer-parameter.f90

   1 ! Test correct lowering of 128 bit integer parameters.
   2 ! RUN: bbc -emit-fir %s -o - | FileCheck %s
   3
   4 program 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
  14 end
  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