! RUN: %flang_fc1 -emit-hlfir %s -o - | FileCheck %s

! Tests REAL lowering
subroutine test_real()
  real(4) :: r4
  real(8) :: r8

  r4 = real(z'40', kind=4)
  r8 = real(z'40', kind=8)

end subroutine

! CHECK-LABEL: func @_QPtest_real() {
! CHECK:  %[[VAL_0:.*]] = fir.alloca f32 {bindc_name = "r4", uniq_name = "_QFtest_realEr4"}
! CHECK:  %[[VAL_1:.*]]:2 = hlfir.declare %[[VAL_0]] {uniq_name = "_QFtest_realEr4"} : (!fir.ref<f32>) -> (!fir.ref<f32>, !fir.ref<f32>)
! CHECK:  %[[VAL_2:.*]] = fir.alloca f64 {bindc_name = "r8", uniq_name = "_QFtest_realEr8"}
! CHECK:  %[[VAL_3:.*]]:2 = hlfir.declare %[[VAL_2]] {uniq_name = "_QFtest_realEr8"} : (!fir.ref<f64>) -> (!fir.ref<f64>, !fir.ref<f64>)
! CHECK:  %[[CST_0:.*]] = arith.constant 8.968310e-44 : f32
! CHECK:  hlfir.assign %[[CST_0]] to %[[VAL_1]]#0 : f32, !fir.ref<f32>
! CHECK:  %[[CST_1:.*]] = arith.constant 3.162020e-322 : f64
! CHECK:  hlfir.assign %[[CST_1]] to %[[VAL_3]]#0 : f64, !fir.ref<f64>
! CHECK:  return